Product User's Manual 



Program Numbers: 5734-XM6(OS) 
5736-XM6(DOS) 

This publication provides information necessary to use 
the APL\360 System. It discusses procedures and equip- 
ment required for interacting with the system, how to 
establish connection between terminal and central com- 
puter, how to start and end work sessions, and how to 
apply system control features. Application of the APL 
language to user problems is thoroughly discussed and 
appendices give both elementary and advanced examples 
of actual terminal sessions. 



in 



3C 



^W 



First Edition ( December 1970) 

This edition applies to Version 1 , Modification Level 0, of the program products 
APL\360-OS (5734-XM6) and APL\360-DOS (5736-XM6) and to all subsequent 
versions and modifications until otherwise indicated in new editions or Technical 
Newsletters. 

Changes are continually made to the information herein. Therefore, before using 
this publication, consult the latest System/360 SRL Newsletter (GN20-0360) for 
the editions that are applicable and current. 

Copies of this and other IBM publications can be obtained through IBM branch 
offices. 

A form has been provided at the back of this publication for readers' comments. If 
this form has been removed, address comments to: IBM Corporation, Technical 
Publications Department, 112 East Post Road, White Plains, New York 10601. 

© Copyright International Business Machines Corporation 1970 



ACKNOWLEDGEMENTS 



The APL language was first defined by 
K. E. iverson in A Programming Language 
(Wiley, 1962) and has since been developed in 
collaboration with A. D. Falkoff. The APL\360 
Terminal System was designed with the 
additional collaboration of L. M. Breed, who, 
with R. D. Moore*, also designed the S/360 
implementation. The system was programmed for 
S/360 by Breed, Moore, and R. H. Lathwell, 
with continuing assistance from L. J. 
Woodrumt, and contributions by C. H. Brenner, 
H. A. Driscoll*, and S. E. Krueger*. The 
present implementation also benefitted from 
experience with an earlier version, designed 
and programmed for the IBM 70 90 by Breed and 
P. S. Abrams**. 

The development of the system has also 
profited from ideas contributed by many other 
users and colleagues, notably E. E. McDonnell, 
who suggested the notation for the signum and 
the circular functions. 

In the preparation of the present manual, 
the authors are indebted to L. M. Breed for 
many discussions and suggestions; to R. H. 
Lathwell, E. E. McDonnell, and J. G. Arnold +t 
for critical reading of successive drafts; and 
to Mrs. G. K. Sedlmayer and Miss Valerie 
Gilbert for superior clerical assistance. 

A special acknowledgement is due to John 
L. Lawrence, who provided important support 
and encouragement during the early development 
of APL implementation, and who pioneered the 
application of APL in computer-related 
instruction. 

* I. P. Sharp Associates, Toronto, Canada. 

t Systems Architecture, IBM Corporation, 

Poughkeepsie , N.Y. 
± Science Research Asosociates, Chicago, 
Illinois. 
** Computer Science Department, Stanford 

University, Stanford, California. 
ft Industry Development, IBM Corporation, 
White Plains, N.Y. 



TABLE OF CONTENTS 



PART 1: GAINING ACCESS 

PHYSICAL EQUIPMENT 1.1 

Preferred features 
THE APL CHARACTER SET 1.3 

Use of other character sets 
THE RECORDING TERMINAL 1.4 

ESTABLISHING A CONNECTION 1.4 

Set up terminal, Dial computer 
ENTRIES FROM THE KEYBOARD 1.6 

Transmission signals, Mistakes, Transmission 

errors, Special features of IBM 1050 terminals 
STARTING AND ENDING A WORK SESSION 1-8 

Sign-on, Limited use of the system, Disconnect 

dial-up connection, Break any connection 



PART 2: SYSTEM COMMANDS 

WORKSPACES AND LIBRARIES 2.1 

Workspaces, Libraries 
NAMES 2.2 

Local and global significance 
LOCKS AND KEYS 2.3 

ATTENTION 2.4 

USE OF SYSTEM COMMANDS 2.5 

Classification of commands, Normal response and 

trouble reports, Clear workspace, Summary 
TERMINAL CONTROL COMMANDS 2.8 

Forced endings, The CONTINUE workspace, 

Interrupted activities, Detailed description 
WORKSPACE CONTROL COMMANDS 2.13 

Application Packages, Groups, Detailed 

description 
LIBRARY CONTROL COMMANDS 2.22 

Continuity of work, Workspace identification, 

Library and account numbers, Storage allotment, 

Use of the CONTINUE workspace, Purging a 

workspace, Detailed description 
INQUIRY COMMANDS 2.2 8 

User codes, Detailed description 
COMMUNICATION COMMANDS 2.32 

Detailed description 



PART 3: THE LANGUAGE 

FUNDAMENTALS 3 • 1 

Statements , Scalar and vector constants, Names 
and spaces, Overstriking and erasure, End of 
statement, Order of' execution, Error reports, 
Names of primitive functions 

SCALAR FUNCTIONS 3.5 

Monadic and dyadic functions, Vectors, Index 
generator 

DEFINED FUNCTIONS 3.10 

Introduction, Branching, Local and global 
variables, Explicit argument, Explicit result, 
The forms of defined functions, Use of defined 
functions, Recursive function definition, Trace 
control 

MECHANICS OF FUNCTION DEFINITION 3.17 

Labels, Revision, Display, Line editing, 
Reopening function definition, Locked functions, 
Deletion of functions and variables, System 
command entered during function definition 

SUSPENDED FUNCTION EXECUTION 3.20 

Suspension, State indicator, Stop control 

HOMONYMS 3 • 2 2 

Variable names, Function names 

INPUT AND OUTPUT 3.23 

Evaluated input, Character input, Escape from 
input loop, Normal output, Heterogeneous output 

RECTANGULAR ARRAYS 3.26 

Introduction, Vectors dimension catenation, 
Matrices dimension ravel, Reshape, Uses of empty 
arrays, Indexing, Indexing on the left, Index 
origin, Array output 

FUNCTIONS ON ARRAYS 3.33 

Scalar functions, Reduction, Inner product, 
Outer product 

MIXED FUNCTIONS 3.37 

Introduction, Transpose, Monadic transpose, 
Rotate, Reverse, Compress, Expand, Decode, 
Encode, Index of, Membership, Take and drop, 
Grade up and down, Deal, Comments 

MULTIPLE SPECIFICATION 3.45 

SYSTEM DEPENDENT FUNCTIONS 3.46 

PART 4: LIBRARY FUNCTIONS 4.1 



APPENDIX A 
APPENDIX B 
APPENDIX C 
BIBLIOGTAPHY 

INDEX 



SAMPLE TERMINAL SESSION A#1 

ADVANCED EXAMPLES b 1 

APL EXTENSIONS c!l 



LIST OF ILLUSTRATIONS 



Page 



Table 1.1 RECOMMENDED FEATURES AND 1.2 

OPTIONS FOR TERMINALS 

Figure 1.2 APLX360 KEYBOARD 

Table 1.3 TELEPHONE NUMBERS 

Table 2.1 SYSTEM COMMANDS 

Table 3.1 ERROR REPORTS 

Table 3.2 PRIMITIVE SCALAR FUNCTIONS 

Table 3.3 FORMS OF DEFINED FUNCTIONS 

Table 3.4 DIMENSION AND RANK VECTORS 

Table 3.5 IDENTITY ELEMENTS OF PRIMITIVE 
SCALAR DYADIC FUNCTIONS 

Table 3.6 INNER PRODUCTS FOR PRIMITIVE 

SCALAR DYADIC FUNCTIONS f AND g 

Table 3.7 OUTER PRODUCTS FOR PRIMITIVE 
SCALAR DYADIC FUNCTION g 

Table 3.8 PRIMITIVE MIXED FUNCTIONS 

Table 3.9 TRANSPOSITION 

Table 3.10 SYSTEM DEPENDENT FUNCTIONS 



1, 


.3 


1. 


.5 


2, 


.7 


3. 


.4 


3. 


.6-7 


3, 


.15 


3. 


.27 


3. 


.34 


3. 


.36 


3. 


36 


3. 


38 


3. 


40 


3. 


47 



PART 1 
GAINING ACCESS 



An APIA 36 System comprises a central computer and an 
indefinite number of typewriter-like terminals. A certain 
number of these terminals may be simultaneously linked to 
the computer, according to the number and type of access 
ports on the computer. 

This part of the manual describes the terminal 
equipment required for interacting with the system, tells 
how to establish a connection between a terminal and the 
central computer, and gives, in simplest form, the 
procedures for starting and ending a work session. 

PHYSICAL EQUIPMENT 

A remote terminal for use with the system must be 
either an IBM 2741 Communications Terminal, an IBM 2 74 0-1 
Communications Terminal equipped with the Transmit Control 
feature, or an IBM 1050 Teleprocessing Terminal. It may 
connect to the central computer through the dial-up 
telephone network, by a leased telephone line, or by private 
wire. 

Dial-up connections are effected by means of a Western 
Electric Dataset #103A-2 or the equivalent, or a compatible 
acoustic coupler. A leased telephone line connection 
requires the use of a Western Electric Dataset #103F-2 or 
the equivalent. A direct-wired connection is effected by 
means of an appropriate IBM line adapter (modem) . In the 
last case, two-wire connections should be avoided, if 
possible, since their use rules out an interrupt facility. 

Preferred features. The APIA36 system will work with many 
variations of the terminal types given above, but certain 
features and options are desirable. Dial-up connections 
provide the greatest flexibility, both in overall system 
configuration, and in certain details of operation. 
Similarly, although the APL printing element is based on a 
12-pitch font, and is available in both Selectric® and 
PTTC/BCD keyboard encoding (i.e., the correspondence between 
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FEATURE OR OPTION 


1050 


2740-1 


2741 


Control Unit 


1051-2 






Voltage (115 AC) , Non-lock plug 


9881 


9881 


9881 


Dataset Attachment 


9114 


9114 


9114 


Dial Up 


NR 


3255 


3255 


Transmit Control 


NR 


8028 


NR 


Automatic EOB 


RPQ E27283 


Do not use 


NR 


Typamatic Keys 


NA 


NA 


8341 


Interrupt 


RPQ E27428 


RPQ F17913 


4708 


Text Time-out Suppression 


9698 


NR 


NR 


First Printer Attachment 


4408 


NR 


NR 


Automatic Ribbon Shift Select 


1295 


NA 


NA 


Typing Table 


9705 


NR 


NR 


Printer-Keyboard 


1052-2 






APL Printing Element, PTTC/BCD 


1167988 


1167988 


1167988 


or Standard Selectric® 


NA 


1167987 


1167987 


Keys, APL Keyboard 


RPQ M40174 


RPQ M40174 


RPQ M40174 


Character Spacing, 10 per inch 


9104 


9104 


9104 


Line Feeding, 6 per inch 


9435 


9435 


9435 


Accelerated Carrier Return 


1006 


NA 


NA 


Notes. NR: feature is standard equipment, or 


is not required. 


NA: not available (July 1968) . 






The numbers are IBM-domesi 


bic identifications. 





Table 1.1: RECOMMENDED FEATURES AND OPTIONS FOR TERMINALS 



keyboard layout and character positions on the printing 
element) , specification of 10-pitch character spacing and 
Selectric® encoding will allow a greater variety of printing 
elements to be used with the terminal. While it is not 
essential, the convenience of having the interrupt feature 
cannot be overestimated. 

Paper tape equipment (1054-1 Reader and 1055-1 Punch) 
and punched-card equipment (1056-1 Reader and 1057-1 Punch) 
can be used with IBM 1050 terminals. The punched-card 
facilities should have Extended Character features 38 61 and 
3860, for reader and punch, respectively. 

IBM identifications for recommended terminal features 
and options are given in Table 1.1. Complete specifications 
for terminals, and information on other options, should be 
obtained from local IBM representatives. 
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Figure 1.2: APIA 360 KEYBOARD 



THE APL CHARACTER SET 

The APIA 36 keyboard is shown in Figure 1.2. The 
numerals, alphabetic characters, and punctuation marks 
appear in their usual places, although the alphabet is used 
in only a single case: letters print as upper-case italics, 
but are produced only when the keyboard is in lower-case 
position (i.e., not shifted). 

The special characters, most of which are produced with 
the keyboard shifted, generally have some mnemonic 
connection with their alphabetic or numeric correspondents. 
This may be appearance (w over W) , Greek-Roman equivalence 
(p over R) , sequence (<<=>> * over 3 4 5 6 7 8 ) , or some 
— possibly far fetched -- relationship between the APL 
function represented by the symbol and the letter (* over P 
for power, ' over K for "kwote", and T over S for ceiling). 

Use of other character sgts. The part numbers of APL 
printing elements are given in Table 1.1. However, any 
printing element may be used with the APL system, since the 
encoded characters generated by the keyboard and transmitted 
to the computer are independent of the particular element 
mounted on the terminal. Subject to programmed 
intervention, the transmitted information will always be 
interpreted according to the APL keyboard characters . 

Non-APL printing elements are frequently useful in 
conjunction with special-purpose APL programs designed to 
exploit their character sets. Also, any element that 
matches the keyboard encoding (Selectric® or PTTC/BCD) of 
the terminal can be used for straightforward numerical work, 
since letters and digits print properly with such elements. 
The visual interpretation of complex APL expressions is, of 
course, awkward with any but an APL printing element. 
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THE RECORDING TERMINAL 

As connections with remote terminals are established 
and broken, and users start and end work sessions, a printed 
record of this traffic is generated at the system's 
recording terminal. This terminal, which is usually, but 
not necessarily, located at the central computer site, is 
ordinarily attended by an APL Operator who monitors the 
operation of the system, and provides a common point of 
contact for users. 

There are certain supervisory functions, essential to 
the operation of APIA360, which can be effected only from 
the recording terminal. Thus, this terminal holds a 
privileged position relative to others. The enrollment of 
new users, and the allocation of library space, are examples 
of this kind of function. 



ESTABLISHING A CONNECTION 

The directions that follow assume the use of a dial-up 
connection with a dataset. Instructions for the use of 
acoustic couplers should be obtained from their suppliers. 
Where terminals are connected to the computer by leased 
lines or private wires, instructions on dialing procedure 
(EC2) are irrelevant, but local sources of information 
should be consulted for equivalent procedures. 

ACTION NOTES 

EC 1_. Set up te rminal : 
Insert paper, mount an APL 
printing element, connect 
terminal to power source, 
and set switches as follows: 

IBM 2741 or 2740 Terminal 

LCL/COM COM The power switch is at the 

Power ON right of the keyboard. On 

2741 , s, the LCL/COM switch 
is on the left side of the 
terminal stand, toward the 
rear; on 2740's, it is to 
the right of the power 
switch. 
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IBM 1050 Terminal 



ATTEND/UNAT TEND 


ATTEND 


Keyboard 


SEND 


Printer 


SEND-RECEIVE 


Reader 1 


OFF 


Punch 1 


OFF 


EOB 


MANUAL 


Line test 


OFF 


Single step 


OFF 


Line control 


ON 


Power 


ON 



Not all 1050 's have all 
switches; those present must 
be set as indicated. The 
states of switches not 
listed here are immaterial. 

If it is known that RPQ 

E27283 (see Table 1.1) is 

installed, set the EOB 
switch to AUTO. 

The line control switch is 
inside the rear door of the 
1051 Control Unit. The 
power switch is on the left 
side of the control unit, 
toward the front. 



On 2741 and 2 740 terminals, 
test to see if the keyboard 
is locked by trying the 
shift key. If the key is 
operable, press the carrier 
return and test again. 



If the keyboard does not 
lock after a carrier return, 
check the switches and try 
once more. If the switches 
are set properly and the 
keyboard remains unlocked, 
the terminal is faulty. 



EC 2 j. Dial computer: 
Set the telephone pushbutton 
switch to TALK and follow 
ordinary dialing procedure. 
After two rings, at most, 
the telephone will respond 
with a steady, high-pitched 
tone. 



Telephone numbers are given 
in Table 1.3. If the line 
is busy, try a different 
number or call the APL 
Operator to inquire about an 
open line. 



123 456-7890 123 456-7890 

Insert a table of access 

telephone numbers here. 

An assistance number 

should be included. 

APL Operator: 123 456-7890 

Table 1.3: TELEPHONE NUMBERS 
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Promptly set the pushbutton The DATA button should 
switch to DATA by holding light, and will remain lit 
the DATA button down firmly as long as the terminal is 
for a moment and then connected to the computer, 
releasing. If it does not light, check 

the power connection to the 
Cradle the handset. dataset. If it lights, but 

quickly goes out, check the 
power connection to the 
terminal, the cable 
connection to the dataset, 
and the switch settings on 
the terminal. Then retry 
from EC1. 

Response: The keyboard will 
unlock, indicating that the 
computer is ready to accept 
an entry from the terminal. 

The connection established by the foregoing procedure 
is only tentative, and will be broken by the central 
computer if further communication does not take place within 
60 seconds. Therefore, the next step — the sign-on 
procedure (EC3) given below — should be executed promptly. 



ENTRIES FROM THE KEYBOARD 

After a connection is established, normal communication 
between a terminal and the central computer is carried on by 
means of entries from the typewriter keyboard, which 
alternately locks and unlocks as each entry is made and the 
computer completes its work. The general procedure is to 
type an instruction or command, strike the carrier return to 
indicate the end of the message, and follow this by a 
transmission signal. 

Transmission signals. The transmission signal is generated 
differently, according to the terminal type and its 
equipment : 

2741. A transmission signal is automatically generated in 
the proper sequence (i.e., after the carrier return 
signal) when the RETURN key is. struck. 

2740. The transmission signal is produced by striking the 
EOT key after the RETURN key. (Do not use the the EOB 
key, or the automatic EOB feature available on these 
terminals . ) 
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1Q5.Q. On terminals equipped with an automatic EOB RPQ 
(see Table 1.1), the transmission signal is produced 
automatically when the RETURN key is struck. Otherwise, 
an EOB must be produced manually, by striking the 
numeral- 5 key, while the key marked ALTN CODING is 
held £qwj3. (Note that the automatic EOB £"ea±iire available 
for 10 50 terminals cannot be used with APIA 36 0.) 

A transmission signal does not cause a character to be 
printed, and its omission will therefore be evidenced only 
by the state of the terminal: the keyboard will remain 
unlocked, and no response will be forthcoming from the 
system. 

In the remainder, of this manual the need for carrier 
return and transmission signal will not be explicitly 
mentioned, since they are required for every entry. 

Misiskes. Before the carrier return (and transmission 
signal) that completes an entry, errors in typing can be 
corrected as follows: backspace to the. point of error and 
then depress the linefeed button (marked ATTN on 2741 
terminals) . This will have the effect of erasing everything 
to the right of, and including, the position of the carrier. 
The corrected text can be continued from that point, on the 
new line. 

This procedure can be used at any time once the sign-on 

(EC3) has been accomplished. In case of error in the 

sign-on itself, the entry should be made as is. The system 

will provide an appropriate ire-able, report, following which, 

a correct entry may be made. 

Transmission errors. There are occasional transient 
failures in the communication between a terminal and the 
central computer. If the failure occurs during the 
transmission from the terminal, the system will respond with 
a resend signal: on 1050 terminals, the RESEND warning 
light will go on, and on other terminals the message RESEND 
will be printed. In any case, the last entry from the 
keyboard must be repeated. The warning light on the 10 50 
should first be extinguished by pressing the adjacent 
button. 

Failures in the other direction are usually evidenced 
by the appearance of a spurious character, whose presence in 
the printed output is obvious in most contexts. However, 
there is no absolutely certain way of detecting such a 
failure. 
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Special features q± IBM 105£ terminals. The keyboard of a 
terminal equipped with a REQUEST button will not unlock, 
when it otherwise should, until the button is depressed. On 
terminals equipped with a timer, the keyboard will lock 
before an entry is completed if approximately 18 seconds 
have elapsed since the last keyboard action. Locking can be 
forestalled by occasionally striking the shift key, but if 
it does happen, the keyboard can be forced to unlock by 
flipping the line-control switch inside the 1051 Control 
Unit to OFF, and back to ON. 

If a terminal is to be used exclusively with APIA360, 
the Keyboard Request feature should be removed, and the Text 
Time-out Suppression feature should be added. 



STARTING AND ENDING A WORK SESSION 

Each user of the system is assigned an ^^j^ount jvumber. 
This number is used to effect the sign-on that initiates a 
work session; serves to partially identify any work that the 
user may store in the system between sessions; and is used 
for accounting or billing purposes. 

If the account number is not known, or if one of the 
trouble reports given below is encountered and not 
understood, a message of inquiry can be sent to the APL 
Operator. This is accomplished by entering )0PR followed by 
a space and one line (not exceeding 120 characters) of an 
appropriate text. 

Such a message can be sent at any time after a 
connection has been established. It causes the keyboard to 
lock, awaiting a reply. If no reply is forthcoming, (and 
the sign-cn has not been completed) , the connection will 
have to be broken and re-established before further 
communication with the system is possible. (After the 
sign-on, the keyboard may be unlocked by an ^JiJ^jitioji 
jsignal, described in Part 2.) 



ACTION 



NOTES 



EC3_. _S jLgn on : 

Enter ) 

followed by an account 

number, with a key (i.e., a 

colon and password) , if 

required. 



The use 
locks and 
in Part 2 . 
have been 



of passwords as 

keys is described 

A new user will 

advised if a key 



is required 
sign-on. 



for his first 
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Effect : 

1. A workspace will be 

activated for the terminal. 



2. Accumulation of 
charges will begin. 



time 



Resp onse : 

1. A broadcast message from 
the APL Operator may be 
printed. 

2. The port number, time of 
day, date, and user name 
associated with the account 
number will be printed on 
one line. The system 
identification will be 
printed on another line. 



A workspace can be thought 
of as both a notebook and a 
scratch pad. The details 
are explained in Part 2. 



Tjp ufej. e _r epojrks : 
NUMBER NOT IN SYSTEM 
means either exactly .what it 
says, or that the number has 
a lock associated with it 
and the wrong key was used. 
The APL Operator should be 
consulted if help is 
required. 

INCORRECT SIGN-ON 
means the form of the 
transmitted command was 
faulty. Retry with a 
properly formulated sign-on. 

ALREADY SIGNED ON 
means that a work session is 
already in progress at the 
terminal. To start a 
session with a different 
account number, use command 
TC5 (see Part 2) , which ends 
the current session but 
holds the connection, and 
retry from the beginning of 
EC3. 

NUMBER IN USE 

means just that, or a 

temporary condition due to 

delays in the central 
computer. Retry from EC2 

after two minutes. If the 

condition persists, notify 
the APL Operator. 

NUMBER LOCKED OUT 

means that authorization for 

use of that number has been 

withdrawn. 
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3. SAVED, followed by the 
time of day and date that 
the activated workspace was 
last stored. 



This response will be 
omitted if the activated 
workspace is £le_ar (i.e., 
not holding information) . 
If the response is given, 
the workspace is named 
CONTINUE. The use of 

workspace names is explained 
in Part 2. 



4. The keyboard will be 
unlocked. 



If this is the only reponse, 
a transmission error has 
occurred, or the entry did 
not start with an APL right 
parenthesis. In either 
case, the entry should be 
repeated in correct form. 
If the condition persists, 
retry from EC2, possibly 
dialing a different number. 



A work session is started, and the. full APL system 
becomes available, once the sign-on is accomplished. Any 
system command of Part 2 or APL operation of Part 3 may now 
be entered for execution. 



Limited Use of the System. No system command other than the 
sign-on given here is required in order to make use of Part 
3, and the reading of Part 2 may therefore be deferred if 
only casual or restricted use is to be made of the system. 
For the purposes of such use, a work session may 
conveniently be terminated by one of the following 
procedures : 



ACTION 



NOTES. 



EC4j,. Disconnect dial-up 

connection : 

Set the power switch to OFF. 

Effect: 

1. The active workspace will 

be stored under the name 

CONTINUE. 



Use this procedure for 
dial-up connections only. 



If the workspace is clear, 
it will not be stored at 
this time. If it is stored, 
it will be automatically 
re-activated when the same 
account number is next used 
to sign on. See note for 
EC3, Response 3. 
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2. The duration of the work 
session and the amount of 
computer time used wil' 1 . be 
noted internally for later 
accounting. 

3. The connection to the 
central computer will be 
broken. 



Response: None. 



The DATA light will go out. 



EC5 A Break any connection : 
Enter ) CONTINUE 



This is command TC4, 
detailed in Part 2. 



Effect: 

1. 2. and 3. The same as for 

EC4. 



Response: 

1. Time of day and date, 

followed by CONTINUE 



Trouble reports : 

NOT WITH OPEN DEFINITION 

INCORRECT COMMAND 

The meanings of these 

reports, and corrective 

actions for them, are given 

in Part 2. 



2. The port number, time of 
day, date, and user code 
will be printed. 

3. Accounting information 
will be printed. 



User codes comprise three 
characters which partially 
identify users. Their use 
is explained in Part 2. 

If a dial-up connection is 
being used, the DATA light 
will go out. 
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PART 2 
SYSTEM COMMANDS 



APL operations deal with transformations of abstract 
objects, such as numbers and symbols, whose practical 
significance, as is usual in mathematics, depends upon the 
(arbitrary) interpretation placed upon them. System 
commands in the APIA360 System, on the other hand, have as 
their subject the structures which comprise the system, and 
control functions and information relating to the state of 
the system, and therefore have an immediate practical 
significance independent of any interpretation by the user. 

In this Part the structure of the APL\360 system is 
described, and various notions essential to the 
understanding of system commands are introduced. Finally, 
the complete set of system commands is described in detail. 



WORKSPACES AND LIBRARIES 

Workspaces. The common organizational unit in the APIA 360 
system is the workspace. When in use, a workspace is said 
to be active, and it occupies a block of working storage in 
the central computer. The size of the block, which is 
preset at a fixed value for a given system, determines the 
combined working and storage capacity of each workspace in 
that system. Part of each workspace is set aside to serve 
the internal workings of the system, and the remainder is 
used, as required, for storing items of information and for 
containing transient information generated in the course of 
a computation. 

An active workspace is always associated with a 
terminal during a work session, and all transactions with 
the system are mediated by it. In particular, the names of 
variables (data items) and defined functions (programs) used 
in calculations always refer to objects known by those names 
in the active workspace; information on the progress of 
program execution is maintained in the state indicator of 
the active workspace; and control information affecting the 
form of output is held within the active workspace. 
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Libraries. Inactive workspaces are stored in libraries, 
where they are identified by arbitrary names. They occupy 
space in secondary storage facilities of the central 
computer and cannot be worked with directly. When required, 
copies of stored workspaces can be made active, or selected 
information may be copied from them into an active 
workspace. 

Libraries in APL\360 are either private or public. 
Private libraries are associated with individual users of 
the system, and are identified by the user's account number. 
Access to them by other users is restricted in that one user 
may not store workspaces in another person's library, nor 
can he obtain a listing of the workspaces already stored 
there. However, one user may activate a copy of another 
user' s (unlocked) workspace if he knows the library number 
and workspace name. 

Public libraries are identified by numbers below 1000. 
They are not associated with individual users, although 
certain ones may be reserved by general agreement for groups 
of people working cooperatively. Anyone may store 
workspaces in a public library, and a listing of workspace 
names is available upon request if the library number is 
known. However, a workspace stored in a public library 
remains under the control of the user who put it there, and 
cannot be altered by others . 

NAMES 

Names of workspaces, functions, variables, and groups 
(see workspace control commands) may be formed of any 
sequence of alphabetic (A to Z, and A to Z) and numeric (0 
to 9) characters that starts with an alphabetic and contains 
no blank. Only the first 11 characters of workspace names, 
and the first 77 characters of other names are significant. 
Longer names may be used, but additional characters beyond 
these limits are ignored. 

The environment in which APL operations take place is 
bounded by the active workspace. Hence, the same name may 
be used to designate different objects (i.e., groups, 
functions, or variables) in different workspaces, without 
interference. Also, since workspaces themselves are never 
the subject of APL operations, but only of system commands, 
it is possible for a workspace to have the same name as an 
object it holds. However, the objects within a workspace 
must have distinct names, except as explained below. 
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Local and global significance. In the execution of defined 
functions it is often necessary to work with intermediate 
results which have no significance either before or after 
the function is used. To avoid cluttering the workspace 
with a multitude of variables introduced for such transient 
purposes, and to allow greater freedom in the choice of 
names, the function definition process (see Part 3) provides 
a facility for designating certain variables as local to the 
function being defined. Variables not so designated, and 
all functions and groups, are said to be global. 

A local variable may have the same name as a global 
object, and any number of variables local to different 
functions may have the same name. 

During the execution of a defined function, a local 
variable will supersede a function or global variable of the 
same name, temporarily excluding it from use. If the 
execution of a function is interrupted (leaving it either 
suspended, or pendent, see Part 3), the local variables 
retain their dominant position, during the execution of 
subsequent APL operations, until such time as the halted 
function is completed. System commands, however, continue 
to reference the global homonyms of local variables under 
these circumstances. 



LOCKS AND KEYS 

Stored workspaces and the information they hold can be 
protected against unauthorized use by associating a lock, 
comprising a colon and a password of the user's choice, with 
the name of the workspace, when the workspace is stored. In 
order to activate a locked workspace or copy any information 
it contains, a colon and the password must again be used, as 
a k§y./ in conjunction with the workspace name. Listings of 
workspace names, including those in public libraries, never 
give the keys, and do not overtly indicate the existence of 
a lock. 

Account numbers can be similarly protected by locks and 
keys, thus maintaining the security of a user's private 
library and avoiding unauthorized charges against his 
account. 

Passwords for locks and keys may be formed of any 
sequence of alphabetic and numeric characters up to eight 
characters long, without blanks. Characters beyond the 
eighth are ignored. In use as either a lock or key, a 
password follows the number or name it is protecting, from 
which it is set off by a colon. 
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ATTENTION 

Printed output at a terminal can be cut off, or the 
execution of an APL operation can be interrupted, and 
control returned to the user, by means of an attention 
signal. Since the keyboard is locked during printing or 
computing, the signal must be generated by means other than 
one of the standard keys. 

On terminals equipped with an interrupt feature, the 
attention signal is generated by depressing the appropriate 
key once, firmly. On IBM 2741 terminals this key is usually 
of a distinctive color, and is marked ATTN. (The same key 
is used for linefeed when the keyboard is not locked.) 

For terminals not so equipped, the attention signal is 
generated by momentarily interrupting the connection to the 
central computer. The method depends upon the type of 
connection : 

with dial-up telephones, uncradle the handset, set 
the pushbutton switch to TALK for two to three 
seconds, and then reset it to DATA; 

with leased telephone lines, set the terminal power 
switch to OFF and then back to ON, with deliberate 
speed. 

If the connection is broken, in either case, for more than 
five seconds, the central computer will interpret this as a 
signal to end the work session and will execute action EC4 
of Part 1. 

Following an attention signal the keyboard will unlock, 
and the type carrier will return to the normal position for 
input (six spaces from the left margin) . If the carrier 
does not do this, enter blank lines repeatedly until it 
does. In some cases a line will be printed before the 
keyboard unlocks, telling where a function in progress was 
interrupted. 

Except for communication commands (and then only if the 
delivery of a message is delayed) , the execution of system 
commands, once entered, cannot be interrupted. However, the 
printed responses or trouble reports following a system 
command can be suppressed by a properly timed attention 
signal. 
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USE OF SYSTEM COMMANDS 

System commands and APL operations are distinguished 
fictionally by the fact that system commands can be called 
for only by individual entries from the keyboard, and cannot 
be executed dynamically as part of a defined function. They 
are distinguished in form by the requirement that system 
commands be prefixed by a right parenthesis, which is a 
syntactically invalid construction in APL. 

There is some system control which it may be desirable 
to exert dynamically, and there are some items of system 
information which can be profitably used during the 
execution of a program. For these purposes APIA 36 provides 
appropriate systemrdependent functions and library 
functions, which can be used like other APL operations. 
These functions are described in Part 3 and Part 4, 
respectively. Where a system command duplicates the action 
of one of them, this fact will be noted in the description 
of the system command in this Part. 

All system commands can be. executed when the terminal 
is in the execution mode, in which APL operations are 
executed forthwith upon entry. However, in definition mode, 
in which sequences of operations are being composed into 
functions for later execution, commands which call for 
storing a copy of the workspace, or which might otherwise 
interfere with the definition process itself, are forbidden. 
(The two terminal modes are treated more fully in Part 3.) 

Classification. of commands. System commands are 
conveniently grouped into five classes with regard to their 
effect upon the state of the system: 

!• Terminal control commands affect the relation of a 
terminal to the system. 

2. Workspace control commands affect the state of the 
active workspace. 

3. Library control commands affect the state of the 
libraries. 

4. Inquiry commands provide information without 
affecting the state of the system. 

5. Communication commands effect the transmission of 
messages among terminals. 
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The text that follows is based upon this 
classification, although it will be seen that certain of the 
terminal control commands also affect the libraries, and one 
of the library control commands may sometimes affect the 
state of the active workspace. 

Normal responses and trouble reports. Any entry starting 
with a right parenthesis will be interpreted by the system 
as an attempt to execute a system command. When the command 
is successfully executed, the normal response, if any, will 
be printed. The expected reponse is given with the 
description of each command. 

If, for any reason, a command cannot be executed, an 
appropriate trouble report will be printed. The most common 
report is INCORRECT COMMAND. This means that the command 
was incomplete, mis-spelled, used a wrong modifier, or was 
otherwise malformed. The corrective action in every case is 
to enter a properly composed command. The meanings and 
corrective actions for other trouble reports are given in 
the notes accompanying the description of each command. 

Clear workspace.*. There are certain transient failures of 
the system which cause the active workspace to be destroyed. 
If this should occur, the message CLEAR WS will be printed, 
indicating that the active workspace has been replaced by a 
clear workspace. (The attributes of a clear workspace are 
given in the section on workspace control commands, see 
WCl.) This situation rarely arises, but the probability of 
its occurrence is slightly higher during the execution of 
system commands. 

Summary. The purposes, forms, responses, and trouble 
reports for all system commands are summarized in Table 2.1. 
Where the first word of a command form is more than four 
characters long, only the first four are significant. The 
others are included only for mnemonic reasons, and may be 
dropped or replaced, as desired. For example, ) CLEAR, 
) CLE A r ) CLEAVER, etc., are all equivalent. 

In general, the elements of a command form must be 
separated by one (or more) spaces. Spaces are not required 
immediately following the right parenthesis, or on either 
side of the colon used with passwords, but can be used 
without harm. 
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Reference and Purpose 
COMMAND FORM ^ 2 - 3 



NORMAL RESPONSE 



TROUBLE REPORTS 4 



TCI Sign on designated user and start a work session. 

)NUMBER [KEY] [TEXT]; PORT, TIME, DATE, USER; SYSTEM; [SA VED , TIME , DATE] 12 3 4 5 

TC2 End work session. 

)OFF [LOCK] PORT, TIME, DATE, USER CODE; TIME USED 16 

TC3 End work session and hold dial-up connection. 

)OFF HOLD [LOCK] PORT, TIME , DATE , USER CODE; TIME USED 16 

TC4 End work session and store active workspace. 

)CONTINUE [LOCK] [TIME , DATE, CO NTINUE] ; PORT, TIME, DATE, USER CODE; TIME USED 6 16 

TC5 End work session, store active workspace, and hold dial-up connection. 

)CONTINUE HOLD [LOCK] [TIME, DATE, CONTINUE] ; PORT, TIME , DATE , USER CODE; TIME USED 6 16 



6 7 8 9 



7 8 



WC1 Activate a clear workspace. 

) CLEAR CLEAR WS 

WC2 Activate a copy of a stored workspace. 

)LOAD WSID [KEY] SA VED , TIME , DATE 

WC3 Copy a global object from a stored workspace. 

)COPY WSID [KEY] NAME SA VED , TIME , DATE 
WC3a Copy all global objects from a stored workspace. 

)C0PY WSID [KEY] SA VED , TIME , DATE 6 

WC4 Copy a global object from a stored workspace, protecting active workspace. 

)PCOPY WSID [KEY] NAME SA VED , TIME , DATE ; [NOT COPIED :, LIST OF OBJECTS] 6 7 
WC4a Copy all global objects from a stored workspace, protecting active workspace. 

)PCOPY WSID [KEY] SA VED , TIME , DATE ; [NOT COPIED: , LIST OF OBJECTS] 6 7 
WC5 Gather objects into a group. 

)GROUP NAME[S] NONE 

WC6 Erase global objects. 

)ERASE NAME[S] [NOT ERASED : ,LIST OF OBJECTS] 

WC7 Set index origin for array operations. 

)ORIGIN INTEGER, 0-1 WAS, FORMER ORIGIN 
WC8 Set maximum for significant digits in output. 

)DIGITS INTEGER, 1-16 WAS, FORMER MAXIMUM 
WC9 Set maximum width for an output line. 

)WIDTH INTEGER, 30-130 WAS, FORMER WIDTH 
WC10 Change workspace identification. 

)WSID WSID WAS, FORMER WSID 
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LCI Re-store a copy of the active workspace. 

)SAVE TIME, DATE, WSID 

LCla Store a copy of the active workspace. 

)SAVE WSID [LOCK] TIME, DATE 

LC2 Erase a stored workspace. 

)DR0P WSID TIME, DATE 



TROUBLE REPORT FORMS 

1 NUMBER NOT IN SYSTEM 

2 INCORRECT SIGN-ON 

3 ALREADY SIGNED ON 

4 NUMBER IN USE 

5 NUMBER LOCKED OUT 

6 NOT WITH OPEN DEFINITION 

7 WS NOT FOUND 

8 WS LOCKED 

9 OBJECT NOT FOUND 

10 WS FULL 

11 NOT GROUPED, NAME IN USE 

12 NOT SAVED, WS QUOTA USED UP 

13 NOT SAVED, THIS WS IS WSID 

14 IMPROPER LIBRARY REFERENCE 

15 MESSAGE LOST 

16 INCORRECT COMMAND 



16 

7 8 16 

10 16 

10 16 

10 16 

10 16 

11 16 
16 
16 
16 
16 
16 



6 12 13 



6 12 13 



14 16 
14 16 
14 16 



IQ1 List names of defined functions. 

)FNS [LETTER] FUNCTION NAMES 

IQ2 List names of global variables. 

)VARS [LETTER] VARIABLE NAMES 

IQ3 List names of groups. 

)GRPS [LETTER] GROUP NAMES 

IQ4 List membership of designated group. 

■)GRP NAME FUNCTION NAMES , VARIABLE NAMES 

IQ5 List halted functions (state indicator) . 

)SI SEQUENCE OF HALTED FUNCTIONS 

IQ6 List halted functions and associated local variables (augmented state indicator 

)SIV SEQUENCE OF HALTED FUNCTIONS WITH NAMES OF LOCAL VARIABLES 

IQ7 Give identification of active workspace. 

)WSID WSID 

IQ8 List names of workspaces in designated library. 

)LIB [NUMBER] NAMES OF STORED WORKSPACES 

IQ9 List ports in use and codes of connected users. 

)P0RTS PORT NUMBERS AND ASSOCIATED USER CODES 

IQ10 List port numbers associated with designated user code. 

) PORTS CODE PORT NUMBERS 



16 
16 
16 
16 
16 
16 
16 
14 16 
16 
16 



CM1 Address text to designated port. 

)MSGN PORT [TEXT] SENT 

CM2 Address text to designated port, and lock keyboard. 

)MSG PORT [TEXT] SENT 

CM3 Address text to recording terminal (APL Operator) . 

)0PRN [TEXT] SENT 

CM4 Address text to recording terminal (APL Operator) , and lock keyboard. 

)0PR [TEXT] SENT 



15 16 

15 16 

15 16 

15 16 



Notes: 1. Items in brackets are optional. 

2. KEY or LOCK: a password set off from preceding text by a colon. 

3. WSID: library number and workspace name, or workspace name alone, as required. 

4. See insert table of trouble report forms. 



Table 2.1: SYSTEM COMMANDS 
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TERMINAL CONTROL COMMANDS 

There is one command for starting a work session, and 
there are four commands for ending one. The variations in 
ending allow for automatically storing a copy of the active 
workspace, and for holding a dial-up telephone connection to 
the central computer for an immediate start of another work 
session. The starting command has been described in Part 1 
(EC3) . 

Forced endings. Any action that interrupts a telephone 
connection for more than five seconds will cause the work 
session to end, and usually cause a copy of the active 
workspace to be stored. This provides a safeguard against 
loss of work in case of failure in the telephone circuits, 
or accidental loss of power at the terminal. It is also the 
basis of the disconnect action described in EC4 of Part 1. 

A work session can also be stopped remotely, from the 
system's recording terminal, in an action known as a bounce. 
As in a disconnect, a copy of the active workspace is 
usually stored automatically. The bounce may be used when a 
port is required for a special purpose, or to clear the 
system of all users before stopping the APL\360 operation 
completely. 

If a work session is ended because of failure of the 
central computer, the active workspace is not stored. 

The CONTINUE workspace. When the active workspace is stored 
automatically, as a result of a disconnect, bounce, or one 
of the continue commands described below, It goes into the 
user's private library and is given the name CONTINUE . If 
the active workspace had a password associated with it, 
CONTINUE will be locked with the same password. 

If CONTINUE is automatically stored, and is not locked, 
it will be automatically activated at the next sign-on; 
otherwise, a clear workspace is activated. 

Since CONTINUE will replace any workspace that may have 
been previously stored under that name, there is a danger 
that repeated line failures, while working with a locked 
workspace, could lead to a complete loss of information. To 
protect against this possibility, a clear workspace is never 
stored automatically. 
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Interrupted activities. An APL operation in progress at the 
moment of occurrence of a bounce or disconnect may or may 
not be carried to its normal conclusion. A defined function 
in progress at such a moment will be suspended, but its 
progress can be resumed at a later work session in 
accordance with the procedures given in Part 3. A system 
command, once begun, will continue to completion regardless 
of the state of the terminal. 

If a bounce or disconnect occurs when the terminal is 
in definition mode, the definition process is arbitrarily 
terminated by the system. To proceed with the definition 
when CONTINUE is next activated, the definition mode can be 
re-established according to the procedures given in Part 3. 
The continue commands will be rejected in definition mode. 

P§tailed description. The trouble reports NO SPACE and 
LIBRARY TABLE FULL have been omitted from Table 2.1, and are 
also omitted from the notes below, because their occurence 
is infrequent, and no corrective action can be taken from a 
remote terminal. They can arise in response to a continue 
command or a save command (see section on library control) , 
and signify that certain of the physical resources of the 
system have been exhausted. 

Elapsed time or time of day, given as a system 
response, is always in hours, minutes, and seconds; two 
digits for each, separated by periods. A date response is 
given as month, day and year; two digits for each, separated 
by slashes. Clock hours are counted continuously from 
midnight of the indicated day, and if the system runs past 
midnight it is possible to have time readings well above 24 
hours. For example, 34„ 22,00 07/11/68 would be 22 minutes 
past 10 AM on July 12, 1968. 

ACTION NOTES 

TCIjl Start a work session: See Part 1, EC3. 
This is the sign-on, 
described in EC3 of Part 1. 
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'EQZjl End work ses sign : 
Enter )OFF 

followed by a colon and a 
password, if desired. 



Passwords longer than eight 
characters are accepted, but 
only the first eight are 
meaningful. Spaces around 
the colon are neutral. 



Effect: 

1. The currently active 
workspace will vanish. 

2. The duration of the work 
session and the amount of 
computer time used will be 
noted internally for later 
accounting. 

3. The password, if used, 
will become a new lock on 
the account number. 



There is no effect on any 
stored workspace. 



Once applied, a lock stays 
in effect until explicitly 
changed by an ending command 
that contains a colon. 



4. A dial-up connection to 
the central computer will be 
broken. 

Response: 

1. The port number, time of 
day, date, and user code 
will be printed on one line. 

2. Accounting information 
will be printed on two 
lines, giving terminal 
connection time and central 
computer time. 



An existing lock is removed 
if no password follows the 
colon. 

If a colon is not used, the 
existing lock, if any, 
remains in force. 



Trouble report : 

INCORRECT COMMAND 



The time used in this 
session and cumulative time 
since the last accounting 
are given in the standard 
format, for both terminal 
time and computer time. 

The DATA light on telephone 
datasets will go out. 
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TC3^ End work session and 
hold dial-up connection: 
Enter )OFF HOLD 
followed by a colon and a 
password, if desired. 



Effect: 

1. 2. and 

TC2. 



3. Same as for 



See note at TC2. 



4. The dial-up telephone 
connection will be 
maintained for 60 seconds, 
pending a new sign-on. 

Response: 

1. and 2. Same as for TC2. 



An attention signal at this 
time may cause the 
connection to be broken. 



Trouble report : 

INCORRECT COMMAND 



TC^i End work session and 
store active workspace : 
Enter ) CONTINUE 
followed by a colon and a 
password, if desired. 



Effect: 

1. A copy of the currently 
active workspace will be 
stored in the user' s private 
library with the name 
CONTINUE. If the workspace 
had been activated from a 
stored workspace with a 
lock, the same lock will be 
applied to CONTINUE. 



See note at TC2. 

A bounce has the same effect 
and response as this 
command. A disconnect has 
the same effect, but no 
response. 



This effect will not take 
place if the active 
workspace is not holding 
information. 

When the workspace is saved 
it replaces any workspace 
previously stored with the 
name CONTINUE. 



2. 3. and 
TC2. 



4. Same as for 
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Response: 

1. Time of day and 

followed by CONTINUE. 



date, 



2. and 3. Same as 
response 1 and 2. 



for TC2, 



TC5._ End work session^ 
store active workspace^ and 
hold dial-up connection : 
Enter ) CONTINUE HOLD 
followed by a colon and a 
password, if desired. 

Effect: 

1. Same as for TC4. 

2. and 3. Same as for TC2. 
4. Same as for TC3. 



This response will be 
omitted if the workspace was 
not saved. See note at 
Effect 1. 

Troyh>l§ reports : 
NOT WITH OPEN DEFINITION 
means that the terminal is 
in definition mode. Close 
the definition by entering 
the character V. (See 
mechanics of function 
definition in Part 3. ) 

INCORRECT COMMAND 
See note at TC2. 



Response: 
1. 2. and 
TC4. 



3. Same as for 



Trouble reports : 

NOT WITH OPEN DEFINITION 
See TC4. 



INCORRECT COMMAND 
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WORKSPACE CONTROL COMMANDS 

The commands in this class can replace the active 
workspace with a clear one, or with a copy of a stored 
workspace; bring together in the active workspace 
information from many stored workspaces; form groups within 
the active workspace; remove unwanted objects from the 
active workspace; and set controls governing certain 
operations. No command in this class affects any but the 
active workspace. 

Application packages. The usefulness of a terminal system 
is enhanced by the availability of many different 
collections of functions and variables, each of which is 
organized to satisfy the computational needs of some area of 
work; for example, standard statistical calculations, 
exercises for teaching a scholastic subject, complex 
arithmetic, business accounting, text editing, etc. The 
workspace-centered organization of APIA 36 lends itself to 
such packaging, because each collection moves as a coherent 
unit when the workspace containing it is stored or 
activated. 

The copy commands provide a convenient way to assemble 
packages from components in different workspaces. The 
3EQUE command makes it convenient to have a multiplicity of 
more specialized packages in a single workspace, sharing 
common elements, but available individually by copying the 
appropriate group. 

Groups. The group command assigns a single name to a 
collection of names, in order to provide more convenient 
reference to selected functions and global variables. The 
group name can subsequently be used for three purposes: to 
move a copy of the entire set of referenced objects between 
workspaces, to incorporate the group members within another 
group, and to erase, in a single operation, all objects 
referenced by the group. Each of these is further explained 
below, in connection with the relevant operation. 

Information transfer between workspaces. Information 
entered or developed within one workspace can be made 
available within another by means of the copy and 
protecting-copy commands, which reproduce within the active 
workspace objects from a stored workspace. These are two 
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sets of parallel commands which differ only in their 
treatment of an object in the active workspace which has the 
same name as an object being reproduced: the copy commands 
will replace the existing object, whereas the 
protecting-copy commands will not make the replacement. 

A copy command of either type can be applied to an 
entire workspace or to a single object (i.e., a function, 
variable, or group) . When an entire workspace is copied, 
all the functions and global variables within it are subject 
to the operation, but its index origin and output control 
settings, state indicator, and local variables are left 
behind. 

When a group is copied without protection, both its 
definition (i.e., the group name and the collection of names 
composing the group) , and the objects referenced by the 
names within it, are reproduced in the active workspace. 
When copied with protection, the group itself, or any of the 
objects referenced by its members, will be omitted in order 
to protect an object in the active workspace. If the group 
definition is successfully copied under these circumstances, 
the names composing it will refer to the global objects by 
those names in the active workspace, regardless of whether 
they were copied with the group or present before. 

Detailed Description. The term workspace J-dentif icatipn is 
used here to mean either a library number followed by a 
workspace name, or a workspace name alone. When a name is 
used alone, the reference is to the user's private library. 
A key is a colon followed by a password. 



ACTION 



NOTES 



WC1_. Ac tj. vat e 
w p rksp >a c e : 
Enter ) CLEAR. 



clear This command is used to make 
a fresh start, discarding 
whatever is in the active 
workspace. 



Effect : 

1. A clear workspace will be 
activated, replacing the 
presently active workspace. 



A clear workspace has no 
variables, groups, or 
defined functions. 

Its control settings are: 
index origin, 1; significant 
digits, 10; line width, 120. 

Its workspace identification 
does not match that of any 
stored workspace. (See 
section on library control.) 



2. 14 



Re spon. s e : 
1. CL.EAR WS 



Trouble message : 
INCORRECT COMMAND 



WC2_. Activate a copy of a 
stored workspace : 
Enter )LOAD 

followed by a space and a 

workspace identification 

(with the key, if required) . 

Effect : 

1. A copy of the designated 
workspace will be activated, 
replacing the presently 
active workspace. 

Re spon se : 

1. SAVED, followed by the 
time of day and the date 
that the source workspace 
was last stored. 



This command may be used to 
obtain the use of any 
workspace in the system 
whose identification (and 
password) is known. 



Trouble messages : 

WS NOT FOUND 

means there is no stored 

workspace with the given 

identification. 



WS LOCKED 

means that no key, or the 
wrong key, was used when one 
was required. 

INCORRECT COMMAND 



WCJL Copy a global object 
f £QH) a stored workspace : 
Enter )COPY 

followed by a space and a 
workspace identification 
(with the key, if required) , 
followed by a space and the 
name of the object to be 
copied. 

Effect: 

1. A copy of the designated 
object will appear in the 
active workspace with global 
significance, replacing 
existing global homonyms. 



A global object may be a 
group, function, or global 
variable. 

When applied to a group, all 
copy commands operate both 
on the group definition and 
on objects referenced by the 
group members . 



Members of a group do not 
necessarily have referents; 
but a group member without a 
referent in the source 
workspace may find one in 
the active workspace. 
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Response: 

1. SAVED, followed by the 
time of day and the date 
that the source workspace 
was last stored. 



Tremble messages : 
NOT WITH OPEN DEFINITION 
means that the terminal is 
in definition mode. Either 
close the definition by 
entering V, or defer the 
copy operation. 

WS NOT FOUND 
See WC2. 



WS LOCKED 
See WC2. 

OBJECT NOT FOUND 

means that the designated 

workspace does not contain a 

global object with the given 

name. 



WS FULL 
means that 
workspace co 
all the mat 
if copied at 
will be copi 
partially 
will leave 
definition 
objects may 
overlooked, 
determined 
priate ingui 



the active 

uld not contain 

erial requested: 

all, a variable 

ed completely; a 

copied function 

the terminal in 

mode; some 

be completely 

Status may be 

by using appro- 

ry commands . 



INCORRECT COMMAND 



WCJju Copy all .global 
objects from a stored 
W P JiS space : 
Enter )COPY 

followed by a space and a 

workspace identification 

(with the key, if required) . 

Effect : 

1. A copy of all functions, 
groups, and global variables 
in the source workspace will 
appear in the active 
workspace with global 
significance, replacing 
existing global homonyms. 



See notes at WC3. 



Local variables, the state 
indicator, and settings for 
origin, significant digits, 
and width are not copied. 



2. 1b 



Re spon se : 

1. SAVED, followed by the 
time of day and the date 
that' the source workspace 
was last stored. 



Trouble messages : 

NOT WITH OPEN DEFINITION 

WS NOT FOUND 

WS LOCKED 

WS FULL 

INCORRECT COMMAND 

See WC3 for all meaninqs 



WQ4j, Copy a global object 
f HQB & stored workspace , 
Protecting the active 

workspace : 
Enter )PCOPY 

followed by a space and a 
workspace identification 
(with the key, if required) , 
followed by a space and the 
name of the object to be 
copied. 

Effect : 

1. A copy of the designated 

object will appear in the 

active workspace unless 

there is an existing global 

homonym. 

Response: 

1. SAVED, followed by the 
time of day and the date 
that the source workspace 
was last stored. 

2. NOT COPIED:, followed by 
the names of objects not 
copied, will be printed if 
appropriate. 



See notes at WC3. 



When a group definition is 
copied, any member whose 
referent was blocked will, 
perforce, refer to the 
referent of its homonym. 

Trouble mes sages : 

NOT WITH OPEN DEFINITION 

WS NOT FOUND 

WS LOCKED 

OBJECT NOT FOUND 

WS FULL 

INCORRECT COMMAND 

See WC3 for all meanings. 
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WC4a.. Copy all global 
objects from a stored 
workspace, protecting the 
§otive workspace : 
Enter )PCOPY 

followed by a space and a 

workspace identification 

(with the key, if required). 

Effect: 

1. A copy of all global 
objects in the source 
workspace which do not have 
global homonyms in the 
active workspace will appear 
in the active workspace. 

Response : 

1. SAVED, followed by the 
time of day and the date 
that the source workspace 
was last stored. 

2. NOT COPIED:, followed by 



See notes at WC3. 



the names 



objects not 



copied, will be printed if 
appropriate. 



See note at WC3a, Effect 1 
See note at WC4, Effect 1. 



Trouble messages : 

NOT WITH OPEN DEFINITION 

WS NOT FOUND 

WS LOCKED 

WS FULL 

INCORRECT COMMAND 

See WC3 for all meanings, 
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WC5.. Gather names into 

group : 

Enter ) GROUP 

followed by a 

or more names 

spaces . 



space and one 
separated by 



Effect: 

1. The first name will be 
the name of a group having 
the other names as members, 
subject to the rules given 
in the adjacent notes. An 
existing group with the same 
name will be superseded. 



The first name used in the 
command must not be the name 
of a function or global 
variable. 

Any name may be a member of 
a group; names of groups, 
functions, and global 
variables, and names without 
current global referents are 
all acceptable. 

Members may be added to an 
existing group by using the 
group name twice in the 
command: as the first name 
and as another. 



2. If only one name is used 
in the command, no group is 
formed, and an existing 
group by that name is 
dispersed. 

Response: None. 



When a group is dispersed 
the group definition is 
destroyed, but the referents 
of the group members are 
unaffected. 

Trouble reports : 
NOT GROUPED, NAME IN USE 
means that the first name 
used in the command is the 
name of a function or global 
variable. Erase the 
offending object, or use a 
different name. 



INCORRECT COMMAND 
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WC6^ ?£§§§ 9i2^§l 2^i§5^s : 

Enter ) ERASE 

followed by a space and the 

names of objects to be 

deleted, separated by 

spaces. 

Effect: 

1. Named objects having 
global significance, other 
than pendent functions, will 
be expunged. 



Response: 

NOT ERASED:, followed by the 

names of functions not 

erased will be printed, if 

appropriate. 



This is the only way to 
remove a global variable, 
and the most convenient way 
to remove a collection of 
objects . 



Names which do not refer to 
global objects are ignored. 

When a group is erased, both 
the group and the referents 
of its members are expunged. 

Trouble Import: 

INCORRECT COMMAND 



WC7.. Set index origin for 
array operations : Enter the 
characters ) ORIGIN 
followed by a space and a 
or 1. 



A dynamically executable 
equivalent function is 
available (see Part 4) . 



Effect : 

1. First elements of arrays 
in the workspace will be 
numbered zero or one, as 
indicated, and subsequent 
use of index-dependent APL 
operations will be 
appropriately affected. 



These matters are explained 
in Part 3. 



Re spon se : 

1. WAS, followed 

former origin. 



Trouble report: 
by the INCORRECT COMMAND 
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WC8jt Set maximum for sigr 

Bificant digits in output: 

Enter )DIGITS 

followed by a space and an 

integer between 1 and 16 

inclusive. 



A dynamically executable 
equivalent function is 
available (see Part 4) . 



Effect : 

1. Subsequent output of 
numbers will show no greater 
number of significant digits 
than indicated. 



This command has no effect 
on the precision of internal 
calculations, which is 
approximately 16 decimal 
digits. 



Response : 

1. WAS, followed 

former maximum. 



by the 



Trouble report.: 

INCORRECT COMMAND 



WC9j. Set maximum width for 

an output line : 

Enter ) WIDTH 

followed by a space and an 

integer between 30 and 130 

inclusive. 



A dynamically executable 
equivalent function is 
available (see Part 4) . 



Effect : 

1. Subsequent output of all 
kinds, except messages 
between terminals, will be 
limited to a line width no 
greater than the number of 
spaces indicated. 



Response: 

1. WAS, followed by 

former maximum width. 



the 



This affects neither the 
mechanical margin stops nor 
the allowable length of 
input lines. 



Trouble report! 

INCORRECT COMMAND 
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WC10.. Change workspace 

identification : 

Enter )WSID 

followed by a space and a 

workspace identification. 



This command can be used to 
guard against inadvertently 
changing a stored workspace 
that has just been loaded; 
and conversely, to enable 
the replacement of a stored 
workspace without first 
using the drop command, when 
the active workspace came 
from a different source. 
(See section on library 
control commands.) 



Effect: 

1. The active workspace will 
assume the specified 
identification. A lock 
associated with the 
workspace will be retained. 

Response: 

1. WAS, followed by the 

former workspace 

identification. 



See command LCI for 
implications of this. 



Trouble report : 

INCORRECT COMMAND 



the 



LIBRARY CONTROL COMMANDS 

There are two basic operations performed by the 
commands in this class. The .save commands cause a copy of 
an active workspace to be stored in a library, and the drop 
command causes such a stored copy to be destroyed. 

The save commands and the load command are symmetric, 
in the sense that a load command destroys an active 
workspace by replacing it with a copy of a stored workspace, 
while a save command may destroy a stored workspace by 
replacing it with a copy of the active workspace. 

J?PI3dri2?uity p_f work. When a workspace is stored, an exact 
copy of the active workspace is made, including the state 
indicator and intermediate results from the partial 
execution of halted functions. These functions can be 
restarted without loss of continuity (see Part 3) , which 
permits considerable flexibility in planning use of the 
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system. For example, lengthy calculations do not have to 
be completed at one terminal session; student work can be 
conducted over a series of short work periods, to suit class 
schedules; and mathematical experimentation or the 
exploration of system models can be done over long periods 
of time, at the investigator's convenience. 

Work space identification. A library number and a name, 
together, uniquely identify each stored workspace in the 
system. An active workspace is also identified by a library 
number and a name, and as copies of stored workspaces are 
activated, or copies, of the active workspace are stored, the 
identification of the active workspace may change according 
to the following rules: 

1. A workspace activated from a library assumes the 
identification of its source. 

2. When a copy of the active workspace is stored, the 
active workspace assumes the identification assigned to 
the stored copy. 

3. The library number and name may be arbitrarily 
changed by the use of command WC10. 

4. A clear workspace activated by a clear command, a 
sign-on, or a system failure is called CLEAR WS , which 
cannot be the name of a stored workspace. 

The identification of active workspaces is used in two 
ways. First, as a safeguard against the inadvertent 
replacement of a stored workspace by an unrelated one: an 
attempt to replace, by a copy of the active workspace, any 
stored workspace other than the one with the same 
identification (or the one named CONTINUE) , will be stopped. 
Second, as a convenience when the active workspace is to be 
re-stored with changes: the use of the command )SAVE , 
without modification, implicitly uses the identification of 
the active workspace. 

Library and account numbers. A user's account number is 
also the number of his private library. The numbers of 
public libraries range from 1 to 999, and do not correspond 
to any account number. 

Each stored workspace has implicitly associated with it 
the account number signed on at the terminal from which the 
save command was entered, and may not be either replaced or 
erased, except from a terminal signed on with the same 
account number. Thus, a user is prevented from affecting 
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the state of another user's private library, or tampering 
with public library workspaces which he did not store. He 
may, of course, activate a copy of any workspace stored in 
the system, if he knows the library number and name (and 
password, if required). 



Storage allotment. A user of APIA 36 i 
space in terms of the maximum number of s 
may have at one time. This quota appli 
total of workspaces stored either in his 
in public libraries. The allotment 
determined by those responsible for the 
of a particular system, and can be 
recording terminal, as required, within 
physical resources of the system. 



s assigned library 

tored workspaces he 

es to the combined 

private library or 

for each user is 

general management 

changed from the 

the bounds of the 



Up to the number in his quota, a user may assign 
arbitrary names to the workspaces he stores . Beyond that 
point he always has available one workspace named CONTINUE 
in his private library. 

Use of the CONTINUE workspace. This workspace has the 
property that it may be freely replaced by an active 
workspace having any identification whatsoever. It is thus 
always available as temporary storage, but carries with it 
the danger of being easily replaced, as described in the 
section on terminal control commands. 

The attributes of the CONTINUE workspace are the same 
whether stored as a result of a continue command, 
disconnect, or bounce, or stored by virtue of a save command 
using that name. In the last case, the active workspace 
assumes the name CONTINUE, as it would any other name under 
like circumstances. 



PUE9ina 1 workspace. The sequence of commands, 
)SAVE ABC123, )CLEAR, )C0PY ABC123, will purge the active 
workspace, clearing it of all but its functions, groups, and 
global variables, and reset its controls (see WCl) . This 
often results in more usable space than can 
realized. Subsequently, the commands 
)SAVE may be used to store a copy of the 
under its former name. 



otherwise be 
)WSID ABC '12 3 and 
purged workspace 
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Detailed Description. The term workspace identification 
will be used with the same significance as for the workspace 
control commands . 



ACXIQJ& 

LCI.. Be- store a copy of the 
active workspace: 

Enter )SAVE 

Effect: 

1. A copy of the active 
workspace will replace the 
stored workspace with the 
same identification. 



2. A password associated 
with the active workspace 
will continue in effect, and 
the stored workspace will be 
locked with this password. 

Besponse : 

1. The time of day, date, 
and workspace identification 
will be printed. 



&QTE£ 



New workspaces can be stored 
by this command only if the 
identification of the active 
workspace has been changed 
by WC10. 

This forestalls inadvertent 
omission of a lock while 
actively engaged with a 
confidential workspace. 



Trouble reports: 

NOT WITH OPEN DEFINITION 

means that the terminal is 
in function definition mode. 
Either close the definition 
by entering V, or defer the 
save operation. 

NOT SAVED, WS QUOTA USED UP 
means that the allotted 
number of stored workspaces 
has previously been reached. 
Unless this is increased, 
the workspace can be stored 
only by replacing a 
workspace already stored. 
CONTINUE may be replaced 
directly; any other must be 
erased first, or the 
identification of the active 
workspace must be made to 
match by WC10. 
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NOT SAVED, THIS WS IS 

CLEAR WS 
results from the fact that 
CLEAR WS . cannot be the name 
of a stored workspace. 
Either change the name by 
WC10, or use LCla. 

IMPROPER LIBRARY REFERENCE 
means that an attempt was 
made either to replace a 
stored workspace that is not 
under control of the account 
number signed on at the 
terminal, or to store into a 
non-existent library. 

INCORRECT COMMAND 



LCla*. Store, a copy q£ the. 

active workspace: 

Enter )SAVE 

followed by a , space and a 

workspace identification, 

with a colon and password, 

if desired. 

Effect: 

1. A copy of the active 
workspace will be stored 
with the designated 
identification, and with the 
assigned lock, if a password 
was used. 



2. The active workspace will 
assume the workspace 
identification used in the 
command. 



This form of the save 
command allows new 
workspaces to be added to a 
library more conveniently, 
and permits locks to be 
added or removed from 
workspaces already present. 



A stored workspace with the 
same identification will be 
replaced. 

A lock on a stored workspace 
will not be retained if the 
command does not include a 
lock explicitly. 

To this extent only, this 
command may affect the state 
of the active workspace. 



2.26 



Response : 

1, The time of day and date 

will be printed. 



Trouble reports: 

NOT WITH OPEN DEFINITION 

means the same as for LCI. 

NOT SAVED, WS QUOTA USED UP 
means the same as for LCI. 



NOT SAVED, THIS WS IS 
followed by identification 
of the active workspace, 
means a stored workspace 
with the identification used 
in the command exists, but 
this identification does not 
match that of the active 
workspace. 

IMPROPER LIBRARY REFERENCE 
means the same as for LCI. 

INCORRECT COMMAND 



LC2^ Erase a stored work= 

space: 

Enter )DROP 

followed by a space and a 

workspace identification. 

Effect: 

1. The designated stored 

workspace will be expunged. 



Since a key is not used, a 
locked workspace whose key 
has been lost can always be 
removed from the system. 



This command has no effect 
on the active workspace, 
regardless of its 
identification. 



Response: 

1. The time of day and date 

will be printed. 



Trouble reports : 

IMPROPER LIBRARY REFERENCE 
means that an attempt was 
made to drop a workspace 
stored by another user. 



WS NOT FOUND 

means that there is 

stored workspace with 



identification 
command. 



no 
the 
used in the 



INCORRECT COMMAND 
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INQUIRY COMMANDS 

Most of the commands in this class concern the state of 
the active workspace. Of the others, one command lists the 
names of workspaces in libraries, and two commands are 
useful for locating another user at a connected terminal, in 
order to communicate with him. 

User codes. The communication commands described in the 
next section require that the port number of the person to 
be addressed be known. The inquiry commands that provide 
this information operate through the device of user codes, 
which serve within the system as partial identification of 
users. (The user account numbers, which completely identify 
users within the system, are not used for this purpose, and 
are treated as private information. ) A user code comprises 
the first three characters of his name, as it appears in the 
sign-on response (Part 1, EC3, Response 2). 

A user code is considered to be only partial 
identification because it may not be unique. Therefore, 
these commands should be used advisedly: before addressing 
substantive messages to a terminal which has been identified 
by a user code, further confirmation of the receiver's 
identity should be sought. 



Detailed description. 

ACTION 

IQljt List names of defined 

functions : 

Enter )FNS 

followed by an alphabetic 

character, if desired. 

Effect: None. 



NOTES 



Response : 

1. The names of defined 
functions in the active 
workspace will be printed 
alphabetically, starting 
with the specified letter. 
If a letter was not used, 
all function names will be 
listed. 



Trouble, message : 

INCORRECT COMMAND 
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IQZjl List names of global 

variables : 

Enter )VARS 

followed by an alphabetic 

character, if desired. 

Effect: None. 



Response : 

1. The names of global 
variables in the active 
workspace will be printed 
alphabetically, starting 
with the specified letter. 
If a letter was not used, 
all names of global 
variables will be listed. 



Trouble message: 

INCORRECT COMMAND 



IQ3jt List names of groups : 
Enter )GRPS 

followed by an alphabetic 
character, if desired. 

Effect: None. 



Response : 

1. The names of groups in 
the active workspace will be 
printed alphabetically, 
starting with the letter 
used. If a letter was not 
used, all group names will 
be listed. 



Trouble message : 

INCORRECT COMMAND 
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IQ4.t. List membership of 

designated group : 

Enter )GRP 

followed by the name of the 

group. 

Effect: None. 



Response: 

1. The names in the 

will be printed. 



group There will be no response if 
there is no group with the 
designated name in the 
active workspace. 



Trouble message : 

INCORRECT COMMAND 



JD5_. List halted functions 
Enter )SI 



The line numbers on which 
halted functions have 
stopped are available for 
dynamic use through the 
system-dependent functions 
126 and i27. (See Part 3.) 



Effect: None. 



Re spgn s e : 

1. The names of halted 
functions will be listed, 
most recent ones first. 
With each name will be given 
the line number on which 
execution stopped. Suspend- 
ed functions will be 
distinguished from pendent 
functions by an asterisk. 



This display is the state 
indicator; its significance 
and use is explained in Part 
3. 

Trouble message : 
INCORRECT COMMAND 
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IQ6jl List halted functions 
with names of local 
variables : 
Enter )SIV 



Effect: None. 



Response : 

1. The response will be the 
same as for IQ5 , except that 
with each function listed 
there will appear a listing 
of its local variables. 



Trouble message : 

INCORRECT COMMAND 



IQZs. Give identification of 
active workspace : 
Enter )WSID 



Effect: None. 



B§spQ n se: 

1. The identification of the 
active workspace will be 
printed. The library number 
will be included only if it 
differs from the account 
number associated with the 
terminal. 



Trouble message : 

INCORRECT COMMAND 



IQ8jt List names of stored 

workspaces : 

Enter )LIB 

followed, if necessary, by a 

library number. 



A library number is not 
required for listings of the 
user's private library. 



Effect 



None. 



Response: 

1. The names of workspaces 
in the designated library 
will be printed. If no 
number was used, the account 
number associated with the 
terminal will be taken as 
the library number. 



Trouble mes sages. : 
IMPROPER LIBRARY REFERENCE 
means that an attempt was 
made to obtain a listing of 
another user's private 
library, or of a 
non-existent library. 

INCORRECT COMMAND 
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IQ9 A Lisi ports in use and 
codes of connected users : 
Enter )PORTS 



Effect: None, 



Response: 

1. Port numbers in use will 
be printed with the 
associated user code. 



Trouble message : 

INCORRECT COMMAND 



IQIOjl List port numbers 

associated with design 

nated user co_de: 

Enter ) PORTS 

followed by the user code. 

Effect: None. 



User codes are not 
necessarily unique, and the 
information derived from 
this command and IQ9 should 
be used advisedly. 



Response: 

1. The port numbers of 
connected users identified 
by the code will be printed. 



Trouble message : 

INCORRECT COMMAND 



COMMUNICATION COMMANDS 

There are two pairs of commands in this class. One 
pair addresses any connected terminal, and one pair 
addresses only the system recording terminal. 

A message can be received by a terminal only when its 
keyboard is locked, and except for public address 
announcements from the system recording terminal, only if it 
is also not in the process of function execution. Hence, to 
facilitate two-way communication, one of each pair of 
communication commands results in locking the keyboard of 
the sending terminal, pending the receipt of a reply. A 
keyboard so locked can be unlocked by an attention signal. 

Incoming messages from the system recording terminal 
are prefixed by OPR: , and public address messages are 
prefixed by PA I : . 
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If the interaction at a terminal must be interrupted 
for a prolonged period while the terminal is still 
connected, it is good practice to lock the keyboard so that 
a message may be received. This can be done by addressing a 
message of the proper type to the terminal's own port 
number. 

Detailed description. The length of a message is restricted 
to a single line, not exceeding 120 characters in length. 
However, messages are not subject to the width settings of 
either the sending or receiving terminal. 



ACTION 



NOTES 



QMl^ Address text to desicj- 

B^ted port: 

Enter )MSGN 

followed by a port number 

and any one- line text. 



A message addressed to an 
unused or non-existent port 
will be reflected back to 
the sending terminal, which 
then plays the role of both 
sender and receiver. 



Effect : 

1. The keyboard will lock 
while the text is being 
transmitted. 

2. The text will be printed 
at the receiving terminal, 
prefixed by the port number 
of the sending terminal. 

3. The keyboard will unlock 
when the transmission is 
completed. 



Response : 
1. SENT 



Trouble, message : 
MESSAGE LOST 

means just that. It happens 
when attention is signalled 
before a message is 
delivered, or an equivalent 
transmission disturbance 
occurs. 



INCORRECT COMMAND 
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CM2.J. Address text to desig- 
nated port and lock k^Yr 
board : 
Enter )MSG 

followed by a port number 
and any one- line text. 

Effect : 

1. Same as CM1 effect 1. 

2. Same as CMl, Effect 2, 
except for a prefix R, to 
indicate that a reply is 
awaited. 



See note at CMl. 



3. The keyboard will remain 
locked after the response is 
printed. 



Response 
1. SENT 



The keyboard can be 
unlocked, before receiving a 
reply, by means of an 
attention signal. 

Trouble message : 

MESSAGE LOST 
See CMl. 



INCORRECT COMMAND 



£M3j, Address text to system 

recording terminal : 

Enter )OPRN 

followed by any one-line 

text. 



See note at CMl. 



Effect: 

1. 2. and 3. Same as CMl. 



Response : 
1. SENT 



Trouble message : 

MESSAGE LOST 
See CMl. 



INCORRECT COMMAND 
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QM^i Address text to system See note at CM1 

recording terminal and lock 

keyboard: 

Enter )OPR 

followed by any one-line 

text. 

Effect: 

1. 2. and 3. Same as CM2. 



Bes]DQnsg: Trouble message: 

1. SENT MESSAGE LOST 

See CM1. 

INCORRECT COMMAND 



2.35 



PART 3 



THE LANGUAGE 



The APIA 360 Terminal System executes system commands or 
mathematical statements entered on a terminal typewriter. 
The system commands were treated in Part 2; the mathematical 
statements will be treated here. 

Acceptable statements may employ either jpxjLinljtJJXB 
J^ujij?i:j.pn_s (e.g. + - * v) which are provided by the system, 
or jde ifined _f [unctio XLS , which the user provides by entering 
their definitions on the terminal. 

If system commands are not used, the worst that can 
possibly result from erroneous use of the keyboard is the 
printing of an ejrror _rep_o.ri:. It is therefore advantageous 
to experiment freely and to use the system itself for 
settling any doubts about its behavior. For example, to 
find what happens in an attemped division by zero, simply 
enter the expression 4v0. If ever the system seems 
unusually slow to respond, execute an attention signal to 
interrupt execution and unlock the keyboard. 

The Sample Terminal Session of Appendix A shows actual 
intercourse with the system which may be used as a model in 
gaining facility with the terminal. The examples follow the 
text and may well be studied concurrently. More advanced 
programming examples appear in Appendix B. 

The primitive functions and the defined functions 
available in libraries can be used without knowledge of the 
means of defining functions. These means are treated in the 
four contiguous sections beginning with Defined Functions 
and ending with Homonyms. These sections may be skipped 
without loss of continuity. 

FUNDAMENTALS 

Statements. Statements are of two main types, the .branch 
(denoted by -* and treated in the section on Defined 
Functions) , and the .spe c ii: ic_a± ion . A typical specification 
statement is of the form 

This statement assigns to the yar.i.able X the value resulting 
from the expression to the right of the specj.Jri.c.atiQn .arxDi/. 



3.1 



If the variable name and arrow are omitted, the resulting 
value is printed. For example: 

3x4 
12 

Results typed by the system begin at the left margin 
whereas entries from the keyboard are automatically 
indented. The keyboard arrangement is shown in Figure 1.2. 

Scalar and vector cgnsJkaDts. All numbers entered via the 
keyboard or typed out by the system are in decimal, either 
in conventional form (including a decimal point if 
appropriate) or in exponential form. The exponential form 
consists of an integer, or decimal fraction followed 
immediately by the symbol E followed immediately by an 
integer. The integer following the E specifies the power of 
ten by which the part preceding the E is to be multiplied. 
Thus 1„44£'2 is equivalent to 14 4. 

Negative numbers are represented by a negative sign 
immediately preceding the number, e.g., "1.44 and ~144£'~2 
are equivalent negative numbers. The negative sign can be 
used only as part of a constant and is to be distinguished 
from the negation function which is denoted, as usual, by 
the minus sign -. 

A constant vector is entered by typing the constant 
components in order, separated by one or more spaces. A 
character constant is entered by typing the character 
between quotation marks, and a sequence of characters 
entered in quotes represents a vector whose successive 
components are the characters themselves. Such a vector is 
printed by the system as the sequence of characters, with no 
enclosing quotes and with no separation of the successive 
elements. The quote character itself must be typed in as a 
pair of quotes. Thus, the abbreviation of CANNOT is 
entered as 'CAN^T 1 and prints as CAN'T. 

Names and Spaces. As noted in Part 2, the name of a 
variable or defined function may be any sequence of letters 
or digits beginning with a letter and not containing a 
space. A letter may be any of the characters A to Z, or any 
one of these characters underscored, e.g. , d or S, 

Spaces are not required between primitive functions and 
constants or variables, or between a succession of primitive 
functions, but they may be used if desired. Spaces are 
needed to separate names of adjacent defined functions, 
constants, and variables. For example, the expression 3+4 
may be entered with no spaces, but if F is a defined 
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function, then the expression 3 F 4 must be entered with the 
indicated spaces. The exact number of spaces used in 
succession is of no importance and extra spaces may be used 
freely. 

Overs tri king qjqA e_r_a.s.ur_e.. Backspacing serves only to 
position the carriage and does not cause erasure or deletion 
of characters. It can be used: 

1. to insert missing characters (such as parentheses) 
if space has previously been left for them, 

2. to form compound characters by overstriking (e.g. 
<j> and ! ) , and 

3. to position the carriage for erasure, which is 
effected by striking the linefeed (marked ATTN on IBM 
2741 terminals) . The linefeed has the effect of 
erasing the character at the position of the carriage, 
and all characters to the right. 

End of §.ta_tenient. The end of a statement is indicated by 
striking the carriage return (followed, on some terminals, 
by an explicit transmission signal as described in Part 1) . 
The typed entry is then interpreted exa_C.tly as it appears on 
the page, regardless of the time sequence in which the 
characters were typed. 

Prfsr of execution. In a compound expression such as 
3x4 + 6t2 , the functions are executed (evaluated) from 
rightmost to leftmost, regardless of the particular 
functions appearing in the expression. (The foregoing 
expression evaluates to 2 1.) When parentheses are used, as 
in the expression W+( 3[Q ) *X*Y-Z , the same rule applies, but, 
as usual, an enclosed expression must be completely 
evaluated before its results can be used. Thus, the 
foregoing expression is equivalent to W+( 3[Q ) f (Xx (Y-Z ) ) . 

In general, the rule can be expressed as follows: every 
function takes as its righthand argument the entire 
expression to its right, up to the right, parenthesis of the 
pair that encloses it. 

Error reports. The attempt to execute an invalid statement 
will cause one of the error reports of Table 3.1 to be typed 
out. The error report will be followed by the offending 
statement with a caret typed under the point in the 
statement where the error was detected. If the caret lies 
to the right of a specification arrow, the specification has 
not yet been performed. 
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TYPE 



Cause; CORRECTIVE ACTION 



CHARACTER 
BERTH 

DOMAIN 
DEFN 



INDEX 
LENGTH 
RANK 
RESEND 

SYNTAX 



SYMBOL 

TABLE 

FULL 

SYSTEM 



VALUE 



WS FULL 



Illegitimate overstrike. 

Excessive depth of function execution. CLEAR STATE 
INDICATOR. 

Arguments not in the domain of the function. 

Misuse of V or D symbols: 

1. V is in some position other than the first. 

2. The function is pendent. DISPLAY STATE 
INDICATOR AND CLEAR AS REQUIRED. 

3. Use of other than the function name alone in 
reopening a definition. 

4. Improper request for a line edit or display. 

Index value out of range. 

Shapes not conformable. 

Ranks not conformable. 

Transmission failure. RE-ENTER. IF CHRONIC, 
RE DIAL OR HAVE TERMINAL OR PHONE REPAIRED. 

Invalid syntax; e.g., tv;o variables juxtaposed; 
function used without appropriate arguments as 
dictated by its header; unmatched parentheses. 

Too many names used. SAVE, CLEAR, COPY 
or SAVE, CLEAR, SYMBOLS, COPY 
or ERASE, SAVE, CLEAR, COPY 

Fault in internal operation of APLX360. RELOAD. 
SEND TYPED RECORD, INCLUDING ALL WORK LEADING TO 
THE ERROR, TO THE SYSTEM MANAGER. 



Use of name which has not been assigned a value. 
ASSIGN A VALUE TO THE VARIABLE, OR DEFINE THE 
FUNCTION. 

Workspace is filled (perhaps by temporary values 
produced in evaluating a compound expression) . 
CLEAR STATE INDICATOR, ERASE NEEDLESS OBJECTS, OR 
REVISE CALCULATIONS TO USE LESS SPACE. 



Table 3.1 ERROR REPORTS 
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If an invalid statement is encountered during execution 
of a defined function, the error report includes the 
function name and the line number of the invalid statement. 
The recommended procedure at this point is to enter a right 
arrow (->) alone, and then retry with an amended statement. 
The matter is treated more fully in the section on Suspended 
Function Execution. 

Names of primitive functions. The primitive functions of 
the language are summarized in Tables 3.2 and 3.8, and will 
be discussed individually in subsequent sections. The tables 
show one suggested name for each function. This is not 
intended to discourage the common mathematical practice of 
vocalizing a function in a variety of ways (for example, 
XtY may be expressed as "X divided by Y" , or "X over Y"). 
Thus, the expression pM yields the dimension of the array M , 
but the terms size or shape may be preferred both for their 
brevity and for the fact that they avoid potential confusion 
with the dimensionality or rank of the array. 

The importance of such names and synonyms diminishes 
with familiarity. The usual tendency is toward the use of 
the name of the symbol itself (e.g., "rho" (p ) for "size", 
and "iota" (i) for "index generator"), probably to avoid 
unwanted connotations of any of the chosen names. 

SCALAR FUNCTIONS 

Each of the primitive functions is classified as either 
scalar or mixed. Scalar functions are defined on scalar 
(i.e., individual) arguments and are extended to arrays in 
four ways: element-by-element, reduction, inner product, and 
outer product, as described in the section on Functions on 
Arrays. Mixed functions are discussed in a later section. 

The scalar functions are summarized in Table 3.2. Each 
is defined on real numbers or, as in the case of the logical 
functions and and or, on some subset of them. No functional 
distinction is made between "fixed point" and "floating 
point" numbers, this being primarily a matter of the 
representation in a particular medium, and the user of the 
terminal system need have no concern with such questions 
unless his work strains the capacity of the machine with 
respect to either space or accuracy. 

Three different representations for numbers are used 
internally, and transformations among them are carried out 
automatically. Integers less than 2 to the power 52 are 
carried with full precision; larger numbers and non-integers 
are carried to a precision of about 16 decimal digits. 
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Monadic form f3 



Dyadic form Af.B 



Definition 
or example 



Name 



Name 



Definition 
or example 



+ 3 «--► 0+3 

-3 «--► 0-3 

x3 «--> (3>0)-(S<0) 

t5 ^-> 1*3 



3 


rs 


IB 


3 . 14 
3. 14 


4 
~3 


3 

4 



*3 «-+ ( 2 . 71828 . . )*i 
®*/y -<— >■ /!/ -<--*- *®# 

I ~3. 14 «--»• 3. 14 



10 -*--* 1 

! 3 «--*- 3 x J 5 - 1 

or 13 -f-> Gamma ('5 + 1) 

?B <--*■ Random choice 
from \B 

OB «-+ 3x3.14159... 

~1 «--> ~0 «~>-l 



Plus 

Negative 

Signum 

Reciprocal 

Ceiling 

Floor 

Exponential 

Natural 
logarithm 

Magnitude 



Factorial 

Roll 

Pi times 
Not 



(-A)oB 


A 


i4o3 


( 1-3*2 )*„ 5 





( 1-3*2 )* r 5 


Arcsin 3 


1 


Sine 3 


Arccos 3 


2 


Cosine 3 


Arctan 3 


3 


Tangent 3 


( l+3*2)* c 5 


4 


( 1+3*2 ) * c 5 


Arcsinh 3 


5 


Sinh 3 


Arccosh 3 


6 


Cosh 3 


Arctanh 3 


7 


Tanh 3 



Table of Dyadic o Functions 



Plus 

Minus 

Times 

Divide 

Maximum 

Minimum 

Power 

Logarithm 

Residue 



2+3,2 <~> 5.2 

2-3.2 +--> "1.2 

2x3.2 «--)• 6.4 

2*3.2 «--► 0.625 

3f7 «--► 7 

3L7 ^+ 3 

2*3 «--► 8 

A©3 -*--► Log 3 base /3 
,4©S «--*» (®3)t®4 



Case 



,4*0 

,4=0, S>0 
4=0 ,S<0 



4 13 



3-( \A)*lBi\A 

B 

Domain error 



Binomial 
coefficient 



Deal 



Circular 



And 
Or 
Nand 
Nor 



Less 

Not greater 

Equal 

Not less 

Greater 

Not Equal 



A\B «--* ( IB)t(IA)x\B-A 
2 '. 5 «--> 1 3 ! 5 *--»• 1 



A Mixed Function (See 
Table 3.8) 

See Table at left 



A*B 



A 


3 


A AS 


4V3 


/I A3 














1 





1 





1 


1 


1 








1 


1 


1 


1 


1 


1 






Relations 

Result is 1 if the 
relation holds, 
if it does not: 

3<7 <*--► 1 

7<3 «--► 



Table 3.2 



PRIMITIVE SCALAR FUNCTIONS 
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For operations such as floor and ceiling, and in 
comparisons, a "fuzz" of about IE 13 is applied in order to 
avoid. anomalous results that might otherwise be engendered 
by doing decimal arithmetic on a binary machine. 

Two of the functions of Table 3.2, the relations * and 
= , are defined on characters as well as on numbers. 

Monadic and dyadic functions. Each of the functions defined 
in Table 3.2 may be used in the same manner as the familiar 
arithmetic functions + - x and ^. Most of the symbols 
employed may denote either a monadic function (which takes 
one argument) or a dyadic function (which takes two 
arguments). For example, [Y denotes the monadic function 
ceiling applied to the single argument Y, and X\ Y denotes 
the dyadic function maximum applied to the two arguments X 
and Y. Any such symbol always denotes a dyadic function if 
possible, i.e., it will take a left argument if one is 
present. 

At this point it may be helpful to scrutinize each of 
the functions of Table 3.2 and to work out some examples of 
each, either by hand or on a terminal. However, it is not 
essential to grasp all of the more advanced mathematical 
functions (such as the hyperbolic functions sinh, cosh, and 
tanh, or the extension of the factorial to non-integer 
arguments) in order to proceed. Treatments of these 
functions are readily available in standard texts. 

Certain of the scalar functions deserve brief comment. 
The residue function A\B has the usual definition of residue 
used in number theorv. For positive integer arguments this 
is equivalent to the remainder obtained on dividing B by A , 
and may be stated more generally as the smallest 
non-negative member of the set B-N*A, where N is any 
integer. 

This formulation covers the case of a zero left 
argument as shown in Table 3.2. The conventional definition 
is extended in two further respects: 

1. The left argument A need not be positive; however, 
the value of the result depends only on the magnitude 

of A. 

2. The arguments need not be integral. For example, 
1(2.6 is 0,6 and 1.5|8 is 0.5. 

The expression "8*.. 5 (square root of ~8) yields a 
domain error, but ~8*1t3 has the value ~2. More generally, 
A*B is valid for ,4<0 if the right argument is (a close 
approximation to) a rational number with an odd denominator 
not greater than 85. 
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The factorial function ! N is defined in the usual way 
as the product of the first N positive integers. It is also 
extended to non-integer values of the argument N and is 
equivalent to the Gamma function of N+l. 

The function AlB (pronounced A out of B) is defined as 
( IB)±( [A)x\B~A . For integer values of A and B, this is the 
number of combinations of B things taken A at a time. (It 
is related to the Complete Beta function as follows: 
Beta(P,£) «--► vQx(p-i) IP+Q-l.) 

The symbols < < = > > and * denote the relations 
l§ss than, less than or equal, etc., in the usual manner. 
However, an expression of the form A <B is treated not as an 
assertion, but as a function which yields a 1 if the 
proposition is true, and if it is false. For example: 



3<7 
7<3 



When applied to logical arguments (i.e., arguments 
whose values are limited to and 1) , the six relations are 
equivalent to six of the logical functions of two arguments. 
For example, < is equivalent to material implication, and * 
is equivalent to exclusive-gr. These six functions together 
with the and, or, nand, and nor shown in Table 3.2 exhaust 
the nontrivial logical functions of two logical arguments. 

Vectors. Each of the monadic functions of Table 3.2 applies 
to a vector, element by element. Each of the dyadic 
functions applies element by element to a pair of vectors of 
equal dimension or to one scalar and a vector of any 
dimension, the scalar being used with each component of the 
vector. For example: 

12 3 4x4 3 2 1 
4 6 6 4 

2+1 2 3 4 
3 4 5 6 

12 3 4T2 
2 2 3 4 

Index generator. If N is a non-negative integer, then \N 
denotes a vector of the first N integers. The dimension of 
the vector i N is therefore N; in particular, i 1 is a vector 
of length one which has the value 1, and i0 is a vector of 
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dimension zero, also called an empty vector. The empty 
vector prints as a blank. For example: 

i4 
12 3 4 

i 5 
12 3 4 5 



lO 

6-i6 

3 2 10 



Empty vector prints as a blank 



2xi o Scalar applies to all (i.e., 0) elements 
of i0, resulting in an empty vector 

2xi 6 
2 4 6 8 10 12 

The index generator is one of the class of mixed 
functions to be treated in detail later; it is included here 
because it is useful in examples. 

DEFINED FUNCTIONS 

I.*ltrq duct ion. It would be impracticable and confusing to 
attempt to include as primitives in a language all of the 
functions which might prove useful in diverse areas of 
application. On the other hand, in any particular 
application there are many functions of general utility 
whose use should be made as convenient as possible. This 
need is met by the ability to define and name new functions, 
which can then be used with the convenience of primitives. 

This section introduces the basic notions of function 
definition and illustrates the use of defined functions. 
Most of the detailed mechanics of function definition, 
revision, and display, are deferred to the succeeding 
section. 

The sequence 

VSPHERE 
Cl] SC/i?F<-4x3. 14159xi?xi? 
[2] V0L+SURFxR±3 
[33 v 

is called a function definition; the first V (pronounced 
del) marks the beginning of the definition and the second V 
marks the conclusion: the name following the first V (in 
this case SPHERE) is the name of the function defined, the 
numbers in brackets are statement numbers., and the 
accompanying statements form the body of the function 
definition. 
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The act of defining a function neither executes nor 
checks for validity the statements in the body; what it does 
is make the function name thereafter equivalent to the body. 
For example: 



V SPHERE 
[1] SURF+^x3„ 14 
[2] VOL+SURFxR* 
[3] V 

R+2 

R 
2 

SURF 
VALUE ERROR 

SURF 

A 

SPHERE 

SURF 
50 . 26544 

VOL 
33, 51029333 

R<-1 

SPHERE 

SURF 
12 . 56636 

VOL 
4 C 188786667 



159xRxR 
3 



Definition of the 
function SPHERE 



Specification and display 
of the argument R 

SURF has not been 
assigned a value 



Execution of SPHERE 
SURF and VOL now have 
values assigned by the 
execution of-SPHERE 

Use of SPHERE for 
a new value of the 
argument R 



?£§£ching. Statements in a function are normally executed 
in the order indicated by the statement numbers, and 
execution terminates at the end of the last statement in the 
sequence. This normal order can be modified by branches. 
Branches make possible the construction of iterative 
procedures. 

The expression ->4 denotes a branch to statement 4 and 
causes statement 4 of the function to be executed next. In 
general, the arrow may be followed by any expression which, 
to be effective, must evaluate to an integer. This value is 
the number of the statement to be executed next. If the 
integer lies outside the range of statement numbers of the 
body of the function, the branch ends the execution of the 
function. 

If the value of the expression to the right of a branch 
arrow is a non-empty vector, the branch is determined by its 
first component. If the vector is empty (i.e., of zero 
dimension) the branch is vacuous and the normal sequence is 
followed. 
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The following examples illustrate various methods of 
branching used in three equivalent functions {SUM, SUM1, and 
SUM2) for determining S as the sum of the first N integers: 

VSUM 
[1] S+0 
[2] 1+1 

[3] ->4xj</y Branch to 4xi (i.e., 4) or to 4x0 (out) 
[4] S+S+ I 
[5] I<-I+l 

[6] ->3 Unconditional branch to 3 

[7] V 

N+l 

SUM 

S 
1 

' N+2 

SUM 

S 
3 

SUM 

S 
15 

VSUM1 Equivalent to SUM 

[1] S+0 
[2] I<-1 

[3] ->0x\ I >N Branch to 0(out) or continue to next 

[4] S*-S+I line since OxiO is an empty vector 

[5] J-hJ+1 

[6] ->3 Unconditional branch to 3 

[7] V 

N<-5 

SUM1 

S 
15 

1SUM2 Equivalent to SUM 

[1] S<-0 
[2] j>0 
[3] £«-£ + J 
[4] J^J+1 

[5] -»-3xiI<tf Branch to 3 or fall through (and out) 
[6] V 

From the last two functions in the foregoing example, 
it should be clear that the expression xi occurring in a 
branch may often be read as "if". For example, -+3><iI<N may 
be read as "Branch to 3 if J is less than or equal to N. " 
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Local and global variables. A variable is normally global 
in the sense that its name has the same significance no 
matter what function or functions it may be used in. 
However, the iteration counter I occurring in the foregoing 
function SUM is of interest only during execution of the 
function; it is frequently convenient to make such a 
variable local tp a function in the sense that it has 
meaning only during the execution of the function and bears 
no relation to any object referred to by the same name at 
other times. Any number of variables can be made local to a 
function by appending each (preceded by a semicolon) to the 
function header. Compare the following behavior of the 
function SUM3 , which has a local variable I , with the 
behavior of the function SUM2 in which I is global: 



7SUM3 ;J 



1SUM2 



[1] 
[2] 
[3] 
[4] 
[5] 
[6] 



15 
20 



S+0 

1+0 

S+S+I 

I +1 + 1 

+3*\I<N 

V 

1+2 

N+5 

SUM 3 

S 

I 



[1] 
[2] 
[3] 
[4] 
[5] 
[6] 



15 
6 



S+0 

1+0 

S+S + 1 

I +1 + 1 

-►3xi I<N 

V 

1+20 

N+b 

SUM2 

S 

I 



Since I is local to the function SUM3 , execution of SUM3 has 
no effect on the variable I referred to before and after the 
use of SUM3. 

However, if the variable K is local to a function F 
then any function G used within F may refer to the same 
variable K, unless the name K is further localized by being 
made local to G. For further treatment of this matter, see 
the section on Homonyms. 
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Explicit argument. A function definition of the form 

1SPH X 
[1] SUB<-^x3 o mi59xXxX 
[2] V 

defines SPH as a function with an explicit argument; 
whenever such a function is used it must be provided with an 
argument. For example: 

SPH 2 

SUR 
50„ 26544 

SPH 1 

SUR 
12 . 56636 

Any explicit argument of a function is automatically 
made local to the function; if E is any expression, then the 
effect of SPH E is to assign to the local variable X the 
value of the expression E and then execute the body of the 
function SPH* Except for having a value assigned initially, 
the argument variable is treated as any other local variable 
and, in particular, may be respecified within the function. 

?^Eii2it £§§>ult. Each of the primitive functions produces a 
result and may therefore appear within compound expressions. 
For example, the expression *z produces an explicit result 
and may therefore appear in a compound expression such as 
Z+tZ, A function definition of the form 

VZ<SP X 
[1] Z+-4x3„ 14159x^x^ 
[2] V 

defines SP as a function with an explicit result; the 

variable Z is local, and the value it assumes at the 

completion of execution of the body of the function is the 
explicit result of the function. For example: 

Q<-3*SP 1 

Q 
37,69908 

R+2 

(SP R)*R±3 
33. 51029333 
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The forms gf defined functions. Functions may be defined 
with 2,1, or explicit arguments and either with or without 
an explicit result. The form of header used to define each 
of these six types is shown in Table 3.3. Each of the six 
forms permits the appending of semicolons and names to 
introduce local variables. The names appearing in any one 
header must all be distinct; e.g., the header Z+-F Z is 
invalid. 



Number of 
Arguments 


Number c 




)f Results 

1 



1 
2 


VF 

VF Y 
VJ F Y 


VZ+F 
VZ<-F J 
VZ+-J F Y 



Table 3.3: 



FORMS OF DEFINED 
FUNCTIONS 



It is not obligatory either for the arguments of a 
defined function to be used within the body, or for the 
result variable to be specified. A function definition 
which does not assign a value to the result variable will 
engender a value error report when it is used within a 
compound expression. This behavior permits a function to be 
defined with a restricted domain, by testing the argument (s) 
and branching out in certain cases without specifying a 
result. For example: 



[1] 
[2] 



VZ+SQRT X 
-s-0xil<0 
Z+X* , 5V 
Q+SQRT 16 



Q+SQRT 16 
VALUE ERROR 

Q+-SQRT 16 

A 



3.15 



Use of defined functions. A defined function may be used in 
the same ways that a primitive function may. In particular, 
it may be used within the definition of another function. 
For example, the function HYP determines the hypotenuse of a 
right triangle of sides A and B by using the square root 
function SQRTi 

1Z+-SQRT X 
[1] Z«-X* C 5V 

VR+A HYP B 
[1] H+SQRT U*2)+S*2V 



5 HYP 12 



13 



A defined function must be used with the same number of 
arguments as appear in its header. 

Excursive function definitiQn^ A function F may be used in 
the body of its own definition, in which case the function 
is said to be recursively defined. The following program 
FAC shows a recursive definition of the factorial function. 
The heart of the definition is statement 2, which determines 
factorial N as the product of N and FAC N-l, except for the 
case N = when it is determined (by statement 4) as 1: 

VZ+FAC N 
[1] -*4xiiV=0 
[2] Z<-NxFAC N-l 
[3] +0 
[4] Z^IV 

Trace control. A trace is an automatic type-out of 
information generated by the execution of a function as it 
progresses. In a complete trace of a function P, the number 
of each statement executed is typed out in brackets, 
preceded by the function name P and followed by the final 
value produced by the statement. The trace is useful in 
analyzing the behavior of a defined function, particularly 
during its design. 

The tracing of P is controlled by the trace vector for 
P, denoted by TLP. If one types ThP<-2 3 5 then statements 
2, 3, and 5 will be traced in any subsequent execution of P. 
More generally, the value assigned to the trace vector may 
be any vector of integers. Typing TkP+Q will discontinue 
tracing of P. A complete trace of P is set up by entering 
TkP<-\N, where N is the number of statements in P. 
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MECHANICS OF FUNCTION DEFINITION 

When a function definition is opened (by typing a V 
followed by a header) , the system automatically types 
successive statement numbers enclosed in brackets and 
accepts successive entries as the statements forming the 
body of the definition. The system is therefore said to be 
in definition mode, as opposed to the execuiaoj} mode which 
prevails outside of function definition. 

There are several devices which may be used during 
function definition to revise and display the function being 
defined. After function definition has been closed, there 
are convenient ways to re-open the definition so that these 
same devices may be used for further revision or display. 

Labels. If a statement occurrinq in the body of a function 
definition is prefaced by a name and a colon, then at the 
beginning of execution the name is assigned a value equal to 
the statement number. A variable specified in this way is 
called a label. Labels are used to advantage in branches 
when it is expected that a function definition may be 
changed for one reason or another, since a label 
automatically assumes the new value of the statement number 
of its associated statement as statements are inserted or 
deleted. 

Labels are like local variables, except that (1) they must not 
appear in the function header (2) values can not be specified for 
them explicitly, and (3) if a suspended function (see "Suspended 
Eunction Execution") is edited, values are assigned to its labels 
at the conclusion of editing. 

Reyi^ign. Any statement number (including one typed by the 
system) can be overridden by typing C N] , where N is any 
positive number less than 10000, with or without a decimal 
point and with at most four digits to the right of the 
decimal point. If N is zero, it refers to the header line 
of the function. 

If any statement number is repeated, the statement 
following it supersedes the earlier specification of the 
statement. If any statement is empty -- that is, the 
bracketed statement number was immediately followed by both 
a linefeed and a carriage return (a carriage return alone is 
vacuous) -- it is deleted. 

When the function definition mode is ended, the 
statements are reordered according to their statement 
numbers and the statement numbers are replaced by the 
integers 1,2,3, and so on. 
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The particular statement on which the closing V appears 
is not significant, since it marks only the end of the 
definition mode, not necessarily the last line of the 
function. Moreover, the closing V may be entered either 
alone or at the end of a statement. 

Display. During function definition, statement N can be 
displayed by overriding the line number with CnD] . After 
the display, the system awaits replacement of statement N. 
Typing [01 displays the entire function, including the 
header and the opening and closing V, and awaits entry of 
the next statement; typing [DN] displays all statements from 
N onward and awaits replacement of the last statement. 
Executing an attention signal will stop any display. 

Line editing. During function definition, statement N can 
be modified by the following mechanism: 

1. Type [NDM] where M is an integer. 

2. Statement N is automatically displayed and the 
carriage stops under position M. 

3. A letter or decimal digit or the symbol / may be 
typed under any of the positions in the displayed 
statement. Any other characters typed in this mode 
are ignored. The ordinary rules for backspace and 
linefeed apply. 

4. When the carriage is returned, statement N is 
re-displayed. Each character understruck by a /is 
deleted, each character understruck by a digit K is 
preceded by K added spaces, and each character 
understruck by a letter is preceded by 5xi? spaces, 
where R is the rank of the letter in the alphabet. 
Finally, the carriage moves to the first injected 
space and awaits the typing of modifications to the 
statement in the usual manner. The final effect is to 
define the statement exactly as if the entry had been 
made entirely from the keyboard; in particular, a 
completely blank sequence leaves the statement 
unchanged. 

If the statement number itself is changed during the 
editing procedure, the statement affected is determined by 
the new statement number; hence statement N remains 
unchanged. This permits statements to be moved, with or 
without modification. 
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R§ppen Ing Junction d5JJ.nJ-tj.pn. If a function R is already- 
defined, the definition mode for that function can be 
re-established by entering V/? alone; the rest of the 
function header must not be entered. The system responds by 
typing [/V + lJ, where N is the number of statements in R . 
Function definition then proceeds in the normal manner. 

Function definition may also be established with 
editing or display requested on the same line. For example, 
VRL31X+X+1 initiates editing by entering a new line 3 
immediately. The system responds by typing [4] and awaiting 
continuation. The entire process may be accomplished on a 
single line. Thus, Vi?[ 3]X«-J+1 V opens the definition of R , 
enters a new line 3, and terminates the definition mode. 
Also, V/?[D]V causes the entire definition of R to be 
displayed, after which the system returns to execution mode. 

Similar expressions involving display are also 
permissible, for example, V/?CD3]V or Vi?[D] or V/?[2D10]. 

Locked Junctions. If the symbol ^ (formed by a V over struck 

with a ~ and called del-tilde) is used instead of V to open 

or close a function definition, the function becomes lQ_c_ke.d. 

A locked function cannot be revised or displayed. 

Moreover, the associated stop control (see next section) and 

trace control vectors cannot be changed after the function is 

locked. 

Locked functions are used to keep a function definition 
proprietary. For example, in an exercise in which a student 
is required to determine the behavior of a function by using 
it for a variety of arguments, locking a function prevents 
him from displaying its definition. 

When an error is encountered in a locked function FL , execu- 
tion of FL is abandoned. If FL was invoked by a locked 
function, it abandons execution of that function also, and so on, 
until there is reached either (1) a statement in an unlocked 
function FU or (2) an input statement. Then X FL ERROR 1 is 
printed on the terminal. In case (1) the execution of FU is 
suspended at the statement. In case (2) the system awaits input 

Deletion of functions and variables. A function F or 
a variable F is deleted by the command ) ERASE F. 
A function may be deleted, whether locked or not, by the 
erase command. 

System command entered during JunciiQD definition . A system 
command entered during function definition will not be 
accepted as a statement in the definition. Some commands, 
such as )COPY , will be rejected with the message 
NOT WITH OPEN DEFINITION (see Table 2.1); most will be 
executed immediately. 
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SUSPENDED FUNCTION EXECUTION 

Suspension. The execution of a function F may be stopped 
before completion in a variety of ways: by an error report, 
by an attention signal, or by the stop control vector ShF 
treated below. In any case, the function is still active 
and its execution can later be resumed. In this state the 
function is said to be suspended. Typing -*-K will cause 
execution of the suspended function to be resumed, beginning 
with statement K. 

Whatever the reason for suspension, the statement or 
statement number displayed is the next one to have been 
executed. A branch to that statement number will cause 
normal continuation of the function execution, and a branch 
out (+0) will terminate execution of the function. 

The function i2 6 (described in the section on System 
Dependent Functions) yields the number of the statement next 
to be executed. Hence the expression *->x2 6 provides a safe 
and convenient way to cause normal resumption of execution. 

In the suspended state all normal activities are 
possible. In particular, the system is in a condition to: 

1. execute statements or system commands. 

2. resume execution of the function at an arbitrary 
point N (by entering -+N) . 

3. reopen the definition of any function which is not 
pendent. The term pendent is defined in the 
discussion of the state indicator below. 

If function execution is interrupted by a disconnect, 
the function is suspended and the resulting active workspace 
is automatically saved under the name CONTINUE , as noted in 
Part 2. 

State indicator. Typing )SI causes a display of the stats 
indicator; a typical display has the following form: 

)SI 
#[7] * 
GC2] 
FC3] 

The foregoing display indicates that execution was 
halted just before executing statement 7 of the function H r 
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that the current use of function H was invoked in statement 
2 of function G, and that the use of function G was in turn 
invoked in statement 3 of f. The * appearing to the right 
of #[7] indicates that the function H is suspended; the 
functions G and F are said to be pe_n.ci£n.£. 

Further functions can be invoked when in the suspended 
state. Thus if G were now invoked and a further suspension 
occurred in statement 5 of Q, itself invoked in statement 8 
of G, a subsequent display of the state indicator would 
appear as follows: 

)SI 
£[5] * 
G[8] 
#[7] * 
GC2] 
F[3] 

The entire sequence from the last to the preceding 
suspension can be cleared by typing a branch with no 
argument (that is, -»■) . This behavior is illustrated by 
continuing the foregoing example as follows: 



)SI 
HL7J * 
GC2] 
P[3] 

Repeated use of -> will clear the state indicator completely. 
The cleared state indicator displays as a blank line. 

Stop Control. The stop vector for a function P is denoted 
by SAP. It is set in the same manner as the trace vector 
(i.e., by SAP+-P , where the vector I specifies the numbers of 
the statements controlled) , and stops execution just before 
each of the specified statements. At each stop, the 
function name and the line number of the statement next to 
be executed are printed. After the stop the system is in 
the normal suspended state; resumption of execution may 
therefore be initiated by a branch. 

Trace control and stop control can be used in 
conjunction. Moreover, either of the control vectors may 
be set within functions. In particular, they may be set by 
expressions which initiate tracing or halts only for certain 
values of certain variables. 
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HOMONYMS 

Variable names. The use of local variables introduces the 
possibility of having more than one object in a workspace 
with the same name. Confusion is avoided by the following 
rule: when a function is executed, its local variables 
supersede, for the duration of the execution, other objects 
of the same name. A name may, therefore, be said to have 
one active referent and (possibly) several latent referents. 

The complete set of referents of a name can be 
determined with the aid of the SIV list (state indicator 
with local variables) , whose display is initiated by the 
command )SIV. The SIV list contains the information 

provided by the command )SI , augmented by the names of the 
variables local to each function. A sample display follows: 





)SIV 




Gill 


* Z X 


I 


F[4] 


P J 




2C3] 


* C X 


T 


fl[2] 


P 




GC3] 


Z X 


I 



If the SIV list is scanned downward, from the top, the 
first occurrence of a variable is the point at which its 
active referent was introduced; lower occurrences are the 
points at which currently latent referents were introduced; 
and if the name is not found at all, its referent is global, 
and should be sought for with the commands )FNS , )VARS , or 
)GRPS. 

As the state indicator is cleared (by ->, or by the 

continuation to completion of halted functions) , latent 

referents become active in the sequence summarized, for the 
preceding SIV list, by the following diagram: 



ZXIPJCTA 

G U H I I I 

F I | I M | | 

Q I H I I M 

R I I I * I I I 

G u H I I I 

Global 4.4,4,4,4,4,4,4,4, 



The currently active referent of a name holds down to 
and including the execution of the function listed at the. 
point of the first arrow, because of localization of the 
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name within that function. The first latent referent 
becomes active when that function is completed, and holds 
down to the next arrow; and so forth until the. state 
indicator is completely cleared, at which point there are no 
longer any latent referents, and all active referents are 
global objects. 

Function names. All function names are global. In the 
foregoing example, therefore, a function named P cannot be 
used within the function R or within any of the functions 
employed by R, since the local variable name P makes the 
function p inaccessible. However, even in such 
circumstances, the openinq of function definition for such a 
function p is possible. (Moreover, as stated in Part 2, 
system commands concern global objects only, regardless of 
the current environment. ) 

This scheme of homonyms is easy to use and relatively 
free from pitfalls. It can, however, lead to seeming 
anomalies as indicated by the following example (shown to 
the authors by J.C.Shaw) of two pairs of functions which 
differ only in the name used for the argument: 



[1] 



[1] 



VZ«-F X 
Z^X+YV 

VZ+-G Y 
Z+F YV 
Y«-3 
G M- 



CI] 



[1] 



VZ+-F 


X 


Z+X + 


YV 


VZ^£ 


R 


Z<-F 


i?V 


Y+-3 




G 4- 





INPUT AND OUTPUT 

The following function determines the value of an 
amount A invested at interest B[l] for a period of S[2] 
years : 

1Z+-A CPI B 
[1] Z«-i4x(l+.01xB[l] )*B[2]V 

For example: 

10 00 CPI 5 4 
1215. 50625 
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The casual user of such a function might, however, find 
it onerous to remember the positions of the various 
arguments and whether the interest rate is to be entered as 
the actual rate (e.g., .05) or in percent (e.g., 5). An 
exchange of the following form might be more palatable: 

CI 
ENTER CAPITAL AMOUNT IN DOLLARS 
D: 

1000 
ENTER INTEREST IN PERCENT 
D: 

5 
ENTER PERIOD IN YEARS 
□ : 

RESULT IS 1215 o 50625 

It is necessary that each of the keyboard entries 
(1000, 5, and 4) occurring in such an exchange be accepted 
not as an ordinary entry (which would only evoke the 
response 1000, etc.), but as data to be used within the 
function CI, Facilities for this are provided in two ways, 
termed evaluated input, and character input. 

The definition of the function CI is shown at the end 
of this section. 

Evaluated input. The quad symbol D appearing anywhere other 
than immediately to the left of a specification arrow 
accepts keyboard input as follows: the two symbols □: are 
printed, the paper is spaced up one line, and the keyboard 
unlocks. Any valid expression entered at this point is 
evaluated and the result is substituted for the quad. For 
example: 

7Z«-F 
[1] Z^-4xQ*2 
C2] V 

F 
D: 

36 

D: 
9 



3 
F 
3t2 
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An invalid entry in response to request for a quad 
input* induces an appropriate error report, after which input 
is again awaited at the same point. A system command 
entered will be executed, after which (except in the case of 
one which replaces the active workspace) a valid expression 
will again be awaited. An empty input (i.e., a carriage 
return alone or spaces and a carriage return) is rejected 
and the system again prints the symbols D: and awaits input. 

The symbols D: are printed to alert the user to the 
type of input expected; they can be changed by the library 
function SFEI as described in Part 4. 

Character input, The quote-quad symbol □ (i.e., a quad 
overs truck with a quote) accepts character input: the 
keyboard unlocks at the left margin and data entered are 
accepted as characters. For example: 

x<-\n 

CAN'T (Quote-quad input, not indented) 

X 
CAN 1 T 

Escape from input loop. If evaluated or character input 
occurs within an endless loop in a function, it may be 
impossible to escape by the usual device of striking the 
attention button. Escape from D input can be achieved by 
entering -+. Escape from input can be achieved by typing 
the three letters OUT, in that order, but with a backspace 
between each pair so that they all overstrike. The effect 
is exactly as if the symbol ->■ were entered while suspended. 

Normal output. The quad symbol appearing immediately to the 
left of a specification arrow indicates that the value of 
the expression to the right of the arrow is to be printed. 
Hence, U*-X is equivalent to the statement X. The longer 
form D+-J is useful when employing multiple specification. 
For example, U+Q+X*2 assigns to Q the value X*2 and then 
prints the value of X*2. 

The page width (measured in characters) may be set to 
any value N in the range 30-130 by entering the command 
) WIDTH N. It may also be set by the library function WIDTH 
which may be used within a defined function. (See Part 4.) 
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Heterogeneous output. A sequence of expressions separated 
by semi-colons will cause the values of the expressions to 
be printed, with no intervening carriage returns or spaces 
except those implicit in the display of the values. 

The primary use of this form is for output in which 
some of the expressions yield numbers and some yield 
characters. For example, if X<-2 14 , then: 

? TEE VALUE OF X IS ' ;X 
THE VALUE OF X IS 2 14- 

A further example of mixed output is furnished by the 
definition of the function CI which introduced the present 
section: 

VCI;A;I;Y 

[1] 'ENTER CAPITAL AMOUNT IN DOLLARS 1 

[2] 4«-D 

[3] 'ENTER INTEREST IN PERCENT 1 

[4] I-f-D 

[5] 'ENTER PERIOD IN YEARS' 

[6] Y<-Q 

[7] 'RESULT IS ' ;4x(l + . 01xJ)*YV 

RECTANGULAR ARRAYS 

Introduction. A single element of a rectangular array can 
be selected by specifying its indices; the number of indices 
required is called the dimensionality or rank of the array. 
Thus a vector is of rank 1, a matrix (in which the first 
index selects a row and the second a column) is of rank 2, 
and a scalar (since it permits no selection by indices) is 
an array of rank 0. Rectangular arrays of higher rank may 
be used, and are called 3-dimensional, 4-dimensional, etc. 

This section treats the reshaping and indexing of 
arrays, and the form of array output. The following section 
treats the four ways in which the basic scalar functions are 
extended to arrays, and the next section thereafter treats 
the definition of certain mixed functions on arrays. 
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Vectors, dimension, catenation. If X is a vector, then pX 
denotes its dimension. For example, if X+-2 3 5 7 11, then 
pX is 5, and if Y+'ABC , then pY is 3. A single character 
entered in quotes or in response to a 1 input is a scalar, 
not a vector of dimension 1; this parallels the case of a 
single number, which is also a scalar. 

Catenation chains two vectors (or scalars) together to 
form a vector; it is denoted by a comma. For example: 



X+-2 3 5 7 11 

X 9 X 

5 7 11 2 3 



11 



In general, the dimension of X,Y is equal to the total 
number of elements in X and Y. A numeric vector cannot be 
catenated with a character vector. (However, see 
Heterogeneous Output.) 

Matrices, dimension, ravel. The monadic function p applied 
to an array A yields the size of A, that is, a vector whose 
components are the dimensions of A, For example, if A is 
the matrix 



1 2 
5 6 
9 10 



3 4 

7 8 

11 12 



of three rows and four columns, then pA is the vector 3 4. 

Since pA contains one component for each coordinate of 
A, the expression ppA is the rank of A. Table 3.4 

illustrates the values of pA and ppA for arrays of rank 
(scalars) up to rank 3. In particular, the function p 
applied to a scalar yields an empty vector. 



Type of Array 


PA 


PPA 


PPpA 


Scalar 
Vector 
Matrix 
3- Dimensional 


N 

M N 

L M N 



1 
2 
3 


1 
1 
1 
1 



Table 3.4: DIMENSION AND 
RANK VECTORS 
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The monadic function ravel is denoted by a comma; when 
applied to any array A it produces a vector whose elements 
are the elements of A in row order. For example, if A is 
the matrix 

2 4 6 8 
10 12 14 16 
18 20 22 24 

and if V*-,A then V is a vector of dimension 12 whose 

elements are the integers 2 4 6 8 10 12 ... . 24. If A 

is a vector, then ,A is equivalent to A; if A is a scalar, 
then ,A is a vector of dimension 1. 

Reshape. The dyadic function p reshapes its right argument 
to the dimension specified by its left argument. If M<-DpV, 
then M is an array of dimension D whose elements are the 
elements of V. For example, 2 3pl23456is the matrix 

12 3 
4 5 6 



If N , the total number of elements required in the 
array Dp V , is equal to the dimension of the vector F , then 
the ravel of Dpi/ is equal to V . If N is less than p V , then 
only the first N elements of V are used; if N is greater 
than pV , then the elements of V are repeated cyclically. 
For example, 2 3pl 2 is the matrix 

12 1 
2 12 

and 3 3pl is the identity matrix 



1 











1 











1 
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More generally, if A is any array, then Do A is 
equivalent to Dp, A . For example, if A is the matrix 

12 3 

4 5 6 

then 3 5pA is the matrix 

12 3 4 5 
6 12 3 4 

5 6 12 3 

The expressions OpJ and 3pZ and 3 OpX and OpA' are 
al] valid; any one or more of the dimensions of an array may 
be zero. 



.Uses p_f .empty .arrays- A vector of dimension zero contains 
no components and is called an empty yejcfcor. Three 
expressions which yield empty vectors are i0 and ' ' and p 
applied to any scalar. An empty vector prints as a blank 
line. 

One important use of the empty vector has already been 
illustrated: when one occurs as the argument of a branch, 
the effect is to continue the normal sequence. 

The- following function for determining the 

representation of any positive integer N in a base B number 

system shows a typical use of the empty vector in 

initializing a vector Z which is to be built up by 
successive catenations: 

1Z+-B BASE N 
[1] Z+-\0 
[2] Z+(B\N),Z 
[3] N+LNtB 
[4] +2x/y>0V 

10 BASE 1776 
17 7 6 

8 BASE 1776 
3 3 6 

Empty arrays of higher rank can be useful in analogous 
ways in conjunction with the expansion function described in 
the section on Mixed Functions. 
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Indexing. If X is a vector and I is a scalar, then X\_I~\ 
denotes the Jth element of X. For example, if X<-2 3 5 7 11 
then XI 2] is 3 . 

If the index J is a vector, then X\_I~\ is the vector 
obtained by selecting from X the elements indicated by 
successive components of I . For example, Z[l 3 5] is 
2 5 11 and XL 5 4 3 2 1] is 11 7 5 3 2 and X[i3] is 2 3 5 . 
If the elements of I do not belong to the set of indices of 
X, then the expression JLI] induces an index error report. 

In general, pA'CJ] is equal to pi. In particular, if I 
is a scalar, then XII] is a scalar, and if I is a matrix, 
then XII] is a matrix. For example: 



214412414 





A*-* ABCDEFG' 




M«-4 3p3 1 4 




M 


3 1 


4 


2 1 


4 


4 1 


2 


4 1 


4 




AIM] 


CAD 




BAD 




DAB 




DAD 





If M is a matrix, then M is indexed by a two-part list 
of the form I; J where I selects the row (or rows) and J 
selects the column (or columns) . For example, if M is the 
matrix 

12 3 4 
5 6 7 8 
9 10 11 12 

then M[2;3] is the element 7 and ML 1 3; 2 3 4] is the matrix 

2 3 4 
10 11 12 
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In general, pMlI;J3 is equal to (pI) 3 pJ. Hence if I 
and J are both vectors, then MlI;J~] is a matrix; if both I 
and J are scalars, Mil; J] is a scalar; if J is a vector and 
J is a scalar (or vice versa), Mil; J] is a vector. The 
indices are not limited to vectors, but may be of higher 
rank. For example, if I is a 3 by 4 matrix, and J is a 
vector of dimension 6, then MlI;J~\ is of dimension 3 4 6, 
and MU;I~] is of dimension 6 3 4. In particular, if T and P 
and Q are matrices, and if R+TlP;Q], then R is an array of 
rank 4 and Rl I;J \K\Ll is equal to TlPl I ;Jl ;QIK;L1 ]. 

The form M\_I \~\ indicates that all columns are selected, 
and the form Ml ;Jl indicates that all rows are selected. 
For example, M[2;] is 5 6 7 8 and Ml; 2 1] is 

2 1 

6 5 

10 9 

The following example illustrates the use of a matrix 
indexing a matrix to obtain a three-dimensional array: 

M«-4 3p314214412414 
M 

3 14 
2 14 

4 12 
4 14 



MIM; ] 



4 12 

3 14 

4 14 

2 14 

3 14 

4 14 

4 14 

3 14 

2 14 

4 14 

3 14 

4 14 
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Permutations are an interesting use of indexing. A 
vector P whose elements are some permutation of its own 
indices is called a ^ermujtation. of. ojcder. pP. For example, 

3 1 4 2 is a permutation of order 4. If X is any vector of 
the same dimension as P, then XlPl produces a permutation of 

X, Moreover, if pP is egual to (pAOCl], then A/CP;] permutes 
the column vectors of M (i.e., interchanges the rows of M) 
and is called a op_lumn. Rermujta.tip_n.. Similarly, if pP equals 

(pM)[2], then Ml ;P] is a row. pejonuJ^alLioji of M. 

Indexing on the. left.. An array appearing to the left of a 
specification arrow may be indexed, in which case only the 
selected positions are affected by the specification. For 
example: 

X<-2 3 5 7 11 
XI 1 3]<-6 8 
X 
6 3 8 7 11 

The normal restrictions on indexing apply; in 
particular, a variable which has not already been assigned a 
value cannot be indexed, and an out-of -range index value 
cannot be used. 

iD^ex origin. In lrorigin indexing, J[l] is the leading 
element of the vector X and A'[pX] is the last element. In 
-origin indexing, J[0] is the leading element and XI 1+pX] 
is the last. 0-origin indexing is instituted by the command 
) ORIGIN 0. The command ) ORIGIN 1 restores 1-origin 
indexing. The index origin in effect applies to all 
coordinates of all rectangular arrays. 

The function ORIGIN in Library 1 WSFNS may also be used 
to control the. inde:< origin. It may be executed within a 
function. (See Part 4.) 

In certain expressions such as +/LJ1M and KfylJlM (to be 
treated more fully in the two following sections) , the value 
of J determines the coordinate of the array M along which 
the function is to be applied. Since the numbering of 
coordinates follows the index origin, a change of index 
origin also affects the behavior of such expressions. 

The index origin also affects four other functions, the 
monadic and the dyadic forms of ? and i. The expression \N 
yields a vector of the first N integers beginning with the 
index origin. Hence XliNl selects the first N components of 
X in either origin. Moreover, i 1 is a one-element vector 
having the value in 0-origin and 1 in 1-origin; i0 is an 
empty vector in either origin. 
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The index origin remains associated with a workspace; 
in particular, the index origin of an active workspace is 
not affected by a copy command. A clean workspace provided 
on sign-on or by the command ) CLEAR is in 1-origin. All 
definitions and examples in this text are expressed in 
1-origin. 

Array output. Character arrays print with no spaces between 
components in each row; other arrays print with at least one 
space. If a vector or a row of a matrix requires more than 
one line, succeeding lines are indented. 

A matrix prints with all columns aligned. A matrix of 
dimension N,l prints as a single column. Arrays are printed 
as planes, with blank spaces separating the planes. 

FUNCTIONS ON ARRAYS 

There are four ways in which the scalar functions of 
Table 3.2 extend to arrays: element-by-element, reduction, 
inner product, and outer product. Reduction and outer 
product are defined on any arrays, but the other two 
extensions are defined only on arrays whose sizes satisfy a 
certain relationship called SQnfQrmability . For the 
element-by-element extension, conformability requires that 
the shapes of the arrays agree, unless one is a scalar. The 
requirements for inner product are shown in Table 3.6. 

Scalar functions. All of the scalar functions of Table 3.2 
are extended to arrays element by element. Thus if M and N 
are matrices of the same size, f is a scalar function, and 
P<-M£N, then PtI;Jl equals MLI;Jj£NL I; J], and if Q+fN, then 
QH\J] is equal to £NH\J~\ a 

If M and N are not of the same size, then M£N is 
undefined (and induces a length or rank errgr report) unless 
one or other of M and N is a scalar or one-element array, in 
which case the single element is applied to each element of 
the other argument. In particular, a scalar versus an empty 
array produces an empty array. 

An expression or function definition which employs only 
scalar functions and scalar constants extends to arrays like 
a scalar function. 

Reduction. The sum-reduction of a vector X is denoted by 
+ /X and defined as the sum of all components of X. More 
generally, for any scalar dyadic function f, the expression 
£/X is equivalent to XI l]f XL 2 ]f . . ,f XlpX ] , where evaluation 
is from rightmost to leftmost as usual. A user-defined 
function cannot be used in reduction. 
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If X is a vector of dimension zero, then f/X yields the 
identity element of the function f (listed in Table 3.5) if 
it exists; if X is a scalar or a vector of dimension 1, then 
f/X yields the value of the single element of X. 

The result of reducing any vector or scalar is a 
scalar. 



Dyadic 






Identity 


Left- 


Function 






Element 


Right 


Times 


X 


1 




L R 


Plus 


+ 







L R 


Divide 


V 


1 




R 


Minus 


- 







R 


Power 


* 


1 




R 


Logarithm 


© 






None 


Maximum 


r 




7. 237 . ,£"75 


L R 


Minimum 


L 




7 . 2 3 7 „ . c E 7 5 


L R 


Residue 


1 







L 


Circle 


o 






None 


Out of 


t 


1 




L 


Or 


V 







L R 


And 


A 


1 




L R 


Nor 


V- 






None 


Nand 


A 






None 


Equal 


= 


1 


Apply 


L R 


Not equal 


* 





for 


L R 


Greater 


> 





^ logical 
arguments 


R 


Not less 


> 


1 


R 


Less 


< 





only 


L 


Not greater 


< 


1 




L 



Table 3.5: IDENTITY ELEMENTS OF 
PRIMITIVE SCALAR 
DYADIC FUNCTIONS 



For a matrix M, reduction can proceed along the first 
coordinate (denoted by f/lllM) or along the second 
coordinate (f/[2]AO. The result in either case is a vector; 
in general, reduction applied to any non-scalar array A 
produces a result of rank one less than the rank of A (hence 
the term reduction) . The numbering of coordinates follows 
the index origin, and an attempt to reduce along a 
non-existent coordinate will result in an index error. 
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Since +/[1]A/ scans over the row index of M it sums each 
column vector of M, and +/[2]Af sums the row vectors of M. 
For example, if M is the matrix 

12 3 
4 5 6 

then +/[1]A/ is 5 7 9 and +/[2]M is 6 15. 

In reducing along the last coordinate of an array, the 
coordinate indicator may be elided -- thus +/M denotes 
summing over each of the rows of M and +/V denotes summing 
over the last (and only) coordinate of the vector V. 

Reduction over the first coordinate of M by a function 
f may be obtained by using the expression f/M. The symbol / 
is formed by overstriking the solidus with the minus sign. 

IQ*}&£ £^2^yct. The familiar matrix product is denoted by 
C<-A + o*B. If A and B are matrices, then C is a matrix such 
that CUiJl is equal to + /AL I ; ]xs [ ;«/] . A similar definition 
applies to Af.gB where f and g are any of the standard 
scalar dyadic functions. 

If A is a vector and B is a matrix, then C is a vector 
such that C\_J~] is equal to +/A*Bl ;J], If B is a vector and 
A is a matrix, then C is a vector such that CCI] is equal to 
+ /A[I";]x£ If both A and B are vectors, then A+.*B is the 
scalar +/A*B„ 

The last dimension of the pre-multiplier A must equal 
the first dimension of the post-multiplier B, except that if 
either argument is a scalar, it is extended in the usual 
way. For non-scalar arguments, the dimension of the result 
is equal to ("l + piO.l + pB. (See the function drop in the 
section on Mixed Functions.) In other words, the dimension 
of the result is equal to (pA),pB except for the two inner 
dimensions (~l+pA and 1+pB), which must agree and which are 
eliminated by the reduction over them. 

Definitions for various cases are shown in Table 3.6. 

Outer Product. The outer product of two arrays X and Y with 
respect to a standard scalar dyadic function g is denoted by 
J°»gY and yields an array of dimension (pA'),pI, formed by 
applying g to every pair of components of X and Y. 
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Conformability 


Definition 


pA 


oB 


oAf.gB 


requirements 


Z+Af.gB 










Z<-f/AqB 




V 






Z<-f/AgB 


U 








Z+f/AgB 


U 


V 




U = V 


Z+f/AqB 




V W 


W 




Z[J]^-fMgB[;J] 


T U 




T 




Z[I>f/4[I;]gB 


U 


V W 


W 


u=v 


ZZIl+f/AgBl ;J] 


T U 


V 


T 


u = v 


Z[I>fM[I;]gB 


T U 


V W 


T W 


u=v 


ZlIiJl+f/AUilgBtiJl 



Table 3.6: INNER PRODUCTS FOR PRIMITIVE SCALAR 
DYADIC FUNCTIONS f AND g 



If X and Y are vectors and 
equal to Z[J]gY[J]. For example: 



Z<-Xo a gY, then Z[I;J] is 



X*-\3 
Y+-\^ 
X° xy 



12 3 

2 M- 6 

3 6 9 
Jo ,>Y 



12 



10 
110 
1110 

If X is a vector and I is a 
ZII;J;K'] is equal to XL I~]gYU;Kl 
cases are shown in Table 3.7. 



matrix, and Z«-*°„gY, then 
Definitions for various 









Definition 


pA 


pB 


p A ° , gB 


Z<-A ° . gB 








Z+AgB 




V 


V 


Z[I>4g5[I] 


U 




U 


Z[7>4[I]gB 


u 


V 


U V 


ZLliJl+AtngBUl 




V W 


V W 


ZLl;J]+AgBlI- 9 J] 


T U 




T U 


ZHiJl+AHiJlgB 


U 


V W 


U V W 


ZlIiJ;lC]<-AlIlgBlJ;Kl j 


T U 


V 


T U V 


ZLI ;J ;K]*-Al I ;J]gB£Kl | 


T U 


V W 


T U V W 


ZHiJiKiLl+ALIiJlgBLKiL] 



Table 3.7: OUTER PRODUCTS FOR PRIMITIVE 
SCALAR DYADIC FUNCTION g 
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MIXED FUNCTIONS 

Introduction. The scalar functions listed in Table 3.2 each 
take a scalar argument (or arguments) and yield a scalar 
result; each is also extended element by element to arrays. 
The mixed functions of Table 3.8, on the other hand, may be 
defined on vector arguments to yield a scalar result or a 
vector result, or may be defined on scalar arguments to 
yield a vector result. In extending these definitions to 
arrays of higher rank, it may therefore be necessary to 
specify which coordinate of an array the mixed function is 
applied to. The expression [<7] following a function symbol 
indicates that the function is applied to the J"th 
coordinate. If the expression is elided, the function 
applies to the last coordinate of the argument array. These 
conventions agree with those used earlier in reduction. 

The numbering of coordinates follows the index origin. 

Transpose. The expression 2 1§M yields the transpose of the 
matrix M; that is, if R+-2 1§M , then each element Rll'iJ'] is 
equal to ■MU;I1. For example: 

M 2 ltytf 

12 3 4 15 9 

5 6 7 8 2 6 10 

9 10 11 12 3 7 11 

4 8 12 



If P is any permutation of order ppA, then P$A is an 
array similar to A except that the coordinates are permuted: 
the Jth coordinate becomes the P[J]th coordinate of the 
result. Hence, if R+P§A , then (pi?)[P] is equal to pA. For 
example: 

A<-2 3 5 7pi210 

QA 
2 3 5 7 

P+2 3 4 1 

pP$A 
7 2 3 5 
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Name 


Sign 1 


Definition or example 2 


Size 
Reshape 
Ravel 
Catenate 


PA 

VpA 

,A 

v,v 


pP «--► 4 pE «--* 3 4 p5 <--> lO 

Reshape A to dimension v 3 4pil2 •*-->■£' 

12pE «--► i 12 OpE «--► i 

,i4 ^+ (x/p4)p4 ,£ +--M12 p,5 «--*• 1 

P,i2«-+2 35712 ' T'.'ffJS 1 «--► 'THIS 1 


Index 3 4 


VLA1 

MIA;A1 
ALA;. . 




P[2] «-+3 PC 4 3 2 1] «~>7 5 3 2 

tf[l 3;3 2 1] ^+ 3 2 1 
► 11 10 9 

£[1;] «-► 1 2 3 4 A75CT> 
tf[;l] <->-l 5 9 'ABCDEFGHIJKL'tEl «~> ffFGff 

IJKL 


Index 
generator 3 

Index of 3 


\S 
V\A 


First £ integers 1 4 «--»■ 1 2 3 4 

i «--► an empty vector 

Least index of A Pi 3 ■*-->- 2 5 12 5 

in V, or l + p 7 PiE ^+ 3 5 4 5 

4 4 1 4 <~> 1 5555 


Take 
Drop 


V+A 
V\A 


-| Take (drop) |7[I] first 2 3fJ ^ ^^ 
> elements on coordinate EFG 
J I. (Last if 7[I]<0) ~2fP <--► 5 7 


Grade up 5 
Grade down 5 


^A 


•^ The permutation which |3 5 3 2 ■*--»- 4 13 2 
Iwould order A (ascend- 
J ing or descending) ^3 532 <-+ 2134 


Compress 5 

5 

Expand 


VIA 
V\A 


1 3 
1 1 0/P «--► 2 5 1 1 0/E <--> 5 7 

9 11 
1 1/[1]# «~> 1 2 3 4 «-+ 1 1/tf 
9 10 11 12 

i4 BCD 
10 1\i2'-f->10 2 10 111 \X <-+ E FGH 

I JKL 


Reverse 5 
Rotate 5 


AfyA 


DCBA IJKL 
<$>X «--»- ft^FE <t>Cl]* «~> 0X «~> tfFG/i 

LKJT 4>P <--> 7 5 3 2 >1BCZ? 

BCZL4 
3<j)P -*--► 7 2 3 5 <-+ l<t>P 1 lc|)Z «--► £TG# 


Transpose 


V§A 
§A 


Coordinate J of 4 2 1§X «--»• BFJ" 
becomes coordinate CGK 
7[I] of result 1 lfcjE «--► l 6 1 1 D#L 

Transpose last two coordinates §E -*--»• 2 1§Z? 


Membership 


AeA 


110 
pfcfeY «--► pW EeP -*--► 1 1 
Pei4 ^110 0000 


Decode 
Encode 


ViV 
ViS 


10H 7 7 6 <-+ 1776 24 60 60ll 2 3 +-+ 3723 
24 60 60T3723 -«--> 1 2 3 60 60T3723 -«--> 2 3 


Deal 3 


S?S 


W?Y «--»• Random deal of W elements from \Y 



Table 3.8: PRIMITIVE MIXED FUNCTIONS (see adjacent notes) 
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1. Restrictions on argument ranks are indicated by: S for 
scalar, V for vector, M for matrix, A for Any. Except as 
the first argument of S\A or S\_A~\, a scalar may be used 
instead of a vector. A one-element array may replace any 
scalar. 

2. Arrays used 12 3 4 ABCD 
in examples: P «-+ 2 3 5 7 E +•+ 5 6 7 8 X <-+ EFGE 

9 10 11 12 IJKL 

3. Function depends on index origin. 

4. Elision of any index selects all along that coordinate. 

5. The function is applied along the last coordinate; the 
symbols /, \, and are equivalent to /, \, and <t>, 
respectively, except that the function is applied along the 
first coordinate. If [S] appears after any of the symbols, 
the relevant coordinate is determined by the scalar S m 

Notes to Table 3.8 



More generally, Q$A is a valid expression if Q is any 
vector of dimension ppA wnose elements are chosen from (and 
exhaust) the elements of \[/Q. For example, if ppA is equal 
to 3 , then 112 and 2 11 and 111 are suitable values for 
Q but 1 3 1 is not. Just as for the case P§A where P is a 
permutation vector, the Jth coordinate becomes the #[J]th 
coordinate of Q$A . However, in this case two or more of the 
coordinates of A may map into a single coordinate of the 
result, thus producing a diagonal section of A as 
illustrated below: 

A*-3 3pi9 
A 

12 3 
4 5 6 
7 8 9 

1 1M 
15 9 
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Table 3.9 shows the detailed 
transposition for a variety of cases. 



definitions 



of 



Monadic transpose. The expression §A yields the array A 
with the last two coordinates interchanged. For a vector V , 
matrix M, and three dimensional array T, the following 
relations hold: 

&?7 is equivalent to 1§V (and hence to V) 

§M is equivalent to 2 1§M (ordinary matrix transpose) 

§T is equivalent to 1 3 2§T 



If K is a scalar or one-element vector and X is a 
then K$X is a cyclic rotation of X defined as 

to XL l+( pX) I ~~l+K+\ pX~\ . For example, 
2$X is equal to 5 7 11 2 3, and 2$X 
3 5. In 0-origin indexing, the 



Rotate . 

vector, 

follows: K$X is equal 

if X<-2 3 5 7 11, then 

is equal to 7 11 2 



definition for K$X becomes XI ( pX) \K+\ pZ] . 

If the rank of X exceeds 1, then the coordinate J along 
which rotation is to be performed may be specified in the 
form Z<-K<\>lJ] X. Moreover, the dimension of K must equal the 
remaining dimensions of X, and each vector along the J"th 
coordinate of X is rotated as specified by the corresponding 
element of K. A scalar K is extended in the usual manner. 



Case 


PR 


Definition 


R<-1§V 


pV 




R+V 


R<-1 2§M 


pM 




R+M 


R+-2 1§M 


(pM)[2 1] 




i?[I;«7]^-M[J;J] 


R<-± 1§M 


1/pM 




/?CJ]^-M[J;J] 


R<-1 2 3§T 


pT 




R<-T 


R<-1 3 2§T 


(pDEl 3 2] 




RHlJlKl*-TlI;Kijy 


R+2 3 1§T 


(p2')[3 1 2] 




RHlJlKl+TtJiKiH 


R<-3 1 2§T 


(pf)[2 3 1] 




BZliJiKl+TtKiIiJl 


R<-1 1 2§T 


(L/(pT)[l 2]) 


,(p2*)C3] 


i?[J;c7]^!T[J;J;J-] 


R+l 2 1§T 


(L/CpDCI 3]) 


,(p2')C2] 


RlIlJl+THiJiIl 


R*-2 1 i$r 


(L/(pT)[2 3]) 


,(pD[i] 


RlI;Jl<rTlJ;I;Il 


B+l 1 1§T 


V/pT 




/?[I>T[I;T;X] 



Table 3.9: TRANSPOSITION 
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For example, if px is 3 4 and J is 2, then K must be of 
dimension 3 and Z[J;] is equal to K\_I ]§X[I\ ] . If J is 1 , 
then P A' must be 4, and Z[ ; J] is equal to #[J]<j>*[ ;I] . If * is 
a three-dimensional array, then Z must be a matrix or a 
scalar. For example: 

M 12 3<j>[l]Af 1 2 3(t)[2]M 

1234 16 11 4 2341 

5678 5 10 38 7856 

9 10 11 12 9 2 7 12 12 9 10 11 

The expression KqX denotes rotation along the first 
coordinate of X. The symbol e is formed by overstriking a o 
with a minus sign. 

Reverse. If X is a vector and R*-$X, then R is equal to X 
except that the elements appear in reverse order. Formally, 
R is equal to Xl 1+ ( pX ) -i p*]. In 0-origin indexing, the 
appropriate expression is XL l+(pZ)-ip*]. 

If A is any array, J" is a scalar or one- element vector, 
and R<-$[J]A , then R is an array like A except that the order 
of the elements is reversed along the Jth coordinate. For 
example: 

A <J>[l]i4 <\>L21A 

123 4 56 321 

456 123 654 

The expression <$>A denotes reversal along the last 
coordinate of A, and QA denotes reversal along the first 
coordinate. For example, if A is of rank 3, then (J>4 is 
equivalent to cj>[3],4, and eA is equivalent to <J>Cl]i4. 

Compress. The expression U/X denotes compression of X by U . 
If £/ is a logical vector (comprising elements having only 
the values o or l ) and x is a vector of the same dimension, 
then u/X produces a vector result of +/u elements chosen 
from those elements of X corresponding to non-zero elements 
of u. For example, if X<-2 3 5 7 11 and u+1 0110 then 
U/X is 2 5 7 and (~U)/X is 3 11. 

To be conformable, the dimensions of the arguments must 
agree, except that a scalar (or one-element vector) left 
argument is extended to apply to all elements of the right 
argument. Hence l/X is equal to X and o/X is an empty 
vector. A scalar right argument is not extended. The 
result in every case is a vector. 
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If M is a matrix, then U/H1M denotes compression 
^l2D9 tne first coordinate, that is, the compression 
operates on each column vector and therefore deletes certain 
rows. It is called column compression. Similarly, U/[2~]M 
(or simply U/M) denotes row compression. The result in 
every case is a matrix. As in reduction, U/M denotes 
compression along the last coordinate, and U/M denotes 
compression along the first. 

Expand. Expansion is the converse of compression and is 
denoted by U\X If Y*-U\X , then U/Y is equal to X and (if X 
is an array of numbers) (~U)/Y is an array of zeros. In 
other words, U\X expands X to the format indicated by the 
ones in U and fills in zeros elsewhere. To be conformable, 
+/U must equal pX. 

If X is an array of characters, then spaces are 
supplied rather than zeros, i.e., if Y+U\X then (~60/Y is an 
array of the space character ' f . Again, U\[_J']M denotes 
expansion along the jth coordinate, U\M denotes expansion 
along the last, and U\M denotes expansion along the first. 
See Table 3.8 for examples of expansion. 

A scalar left argument is not extended. 

Decode. The expression R±X denotes the value of the vector 
X evaluated in a number system with radices 
i?Cl] ,i?[2] , . . o ,i?Cpi?] . For example, if i?^24 60 60 and 
X+-1 2 3 is a vector of elapsed time in hours, minutes, and 
seconds, then R±X has the value 3723, and is the 
corresponding elapsed time in seconds. Similarly, 
1010101011776 is equal to 1776, and 222il01is 
equal to 5. Formally, RiX is equal to +/W*X, where W is the 
weighting vector determined as follows: W[pW] is equal to 
1, and J/El-i] is equal to R[ J] *[/[ I ] . For example, if R is 
24 60 60, then W is 3600 60 1. 

The result is a scalar. 

The arguments R and X must be of the same dimension, 
except that either may be a scalar (or one-element vector). 
For example, 10x1776 is equal to 1776, The arguments 
are not restricted to integer values. If X is a scalar, 
then XlC is the value of a polynomial in X with coefficients 
C, arranged in order of descending powers of X. 

The decode function is commonly applied in work with 
fixed-base number systems and is often called the base^ 
value function. 
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Encode. The encode function RtN denotes the representation 
of the scalar N in the base-/? number system. Thus, if 
Z<-RtN, then ( x/r ) | N-RiZ is equal to zero. For example, 
2222T5is0101 and 2 22T5isl01 and 2 2 t 5 is 
l. The dimension of RtN is the dimension of i?. The 
encode function is also called representation. 

Index Qf» If 7 is a vector and S is a scalar, then J<-V\S 
yields the position of the earliest occurrence of S in V. 
If S does not equal any element of V, then J has the value 
(il)+p7. Clearly, this value depends, as does any result of 
this function, on the index origin, and is one greater than 
the largest permissible index of V. 

If S is a vector, then J is a vector such that Jill is 
the index in V of 5[J]„ For example: 

'ABCDEFGH' i 'GAFFE' 
7 16 6 5 

If I is a numerical vector, then the expression X\\/X 
yields the index of the (first) maximum element in X. For 
example, if X is the vector 8351327 9, then [ /X is 13 
and Xi[/X is 4. 

The result in every case has the same dimensions as the 
righthand argument of i. For example, if Z+V\S, and S is a 
matrix, then ZlI\Jl is equal to ViSUiJl. 

Mem,bers hip. The function XeY yields a logical array of the 
same dimension as X. Any particular element of XeY has the 
value 1 if the corresponding element of X belongs to Y, that 
is, if it occurs as some element of Y. For example, 
(i7)e3 5 is equal to 0010100 and ' ABCDE'FGH ' e« COFFEE ' 
equals 0010110 0. 

If the vector U represents the universal set in some 
finite universe of discourse, then UeA is the characteristic 
of the set A, and the membership function is therefore also 
called the characteristic function. 

The size of the result of the function e is determined 
by the size of the left argument, whereas the size of the 
result of the dyadic function \ is determined by the size of 
the right argument. However, the left arguments of both 
frequently play the role of specifying the universe of 
discourse. 
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Take and drgp. If 7 is a vector and S is a scalar between 
and pv r then S+V takes the first S components of 7. For 
example, if 7«-i7, then 317 is 12 3 and + 7 is i0, 



If S is chosen from the set -ip_7, then £+7 takes the 
last \S elements of 7. For example, 3+7 is 5 6 7. 

If A is an array, then W\A is valid only if W has one 
element for each dimension of A, and Will determines what is 
to be taken along the Jth coordinate of A. For example, if 
A «- 3 4pil2, then 2 3+A is the matrix 

2 3 4 
6 7 8 

The function drop (+) is defined analogously, except 
that the indicated number of elements are dropped rather 
than taken. For example, ~1 1\A is the same matrix as the 
one displayed in the preceding paragraph. 

The rank of the result of the take and drop functions 
is the same as the rank of the right argument. The take and 
drop functions are similar to the transpose in that the left 
argument concerns the dimension vector of the right 
argument. 

Grade up and down. The function &V produces the permutation 
which would order 7, that is 7[^7] is in ascending order. 
For example, if 7 is the vector 7 1 16 5 3 9, then A 7 is the 
vector 2 5 4-163, since 2 is the index of the first in 
rank, 5 is the index of the second in rank, and so on. The 
symbol ^ is formed by overstriking I and A. 

If P is a permutation vector, then kP is the 
permutation inverse to P. If a vector D contains duplicate 
elements, then the ranking among any set of equal elements 
is determined by their positions in D. For example, 

^537392 is the vector 6 2 4 13 5 

The grade down function t is the same as the function & 
except that the grading is determined in descending order. 
Because of the treatment of duplicate items, the expression 
a/(^7)=<H7 has the value 1 if and only if the elements of 
the vector 7 are all distinct. 
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Deal. The function M?N produces a vector of dimension M 
obtained by making M random selections, without replacement, 
from the population \N. In particular, N?N yields a random 
permutation of order N. Both arguments are limited to 
scalars or one-element arrays. 

Comments. The lamp symbol pi, formed by overs tr iking n and 
o, signifies that what follows it is a comment, for 
illumination only and not to be executed; it may occur only 
as the first character in a statement, but may be used in 
defined functions. 

MULTIPLE SPECIFICATION 

Specification («-) may (like any other function) occur 
repeatedly in a single statement. For example, the 
execution of the statement Z<-XxA*-3 will assign to A the 
value 3, then multiply this assigned value of A by X and 
assign the resulting value to Z. 

Multiple specification is useful for initializing 
variables. For example: 

sets X and Y to 1 and Z to 0. 

A branch may occur in a statement together with one or 
more specifications, provided that the branch is the last 
operation to be executed (i.e., the leftmost). For example, 
the statement -+Sx\N>I+-I + l first augments I, and then 
branches to statement S if N exceeds the new value of X. 

In the expression Z<-(A+B ) x( C+D ) it is immaterial 
whether the left or the right argument of the x is evaluated 
first, and hence no order is specified. The principle of no 
specified order in such cases is also applied when the 
expressions include specification. Since the order here is 
sometimes material, there is no guarantee which of two or 
more possible results will be produced. 

Suppose, for example, that A is assigned the value 5 
and the expression Z+-(A+-3)*A is then executed. If the left 
argument of x is executed first, then A is assigned the 
value 3, the right argument then has the new value 3 and Z 
is finally assigned the value 9. If, on the other hand, the 
right argument is evaluated first it has the value 5 
initially assigned to A, the value 3 is then assigned to A 
and multiplied by the 5 to yield a value of 15 to be 
assigned to Z. 
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SYSTEM DEPENDENT FUNCTIONS 

There are three main types of information about the 
state of the system which are of value to the user: 

1. general information common to all users, such as 
date, time of day, and the current number of terminals 
connected to the system. 

2. information specific to the particular work 
session, such as the time of sign-on, the central 
computer time used, and the total keying time. 

3. information specific to the active workspace, such 
as the amount of storage available, and the condition 
of the state indicator. 

This information is provided by a single family of 
functions denoted by i (formed by overstriking t, and i), 
and called the Ir£e.am functions. The individual member 
function is selected by the argument as shown in Table 3.10. 
Times are all in units of one-sixtieth of a second, the date 
is given as a six-digit integer in which the successive 
digit pairs specify the month, day, and year, and the 
available storage is given in b^tS3. 

The byte is a unit of storage equal to 8 binary digits. 
A variable requires for storage a small number of bytes of 
overhead, plus a certain number of bytes per element 
depending upon the form of its representation: 1 if the 
elements are characters, 0.125 if the elements are logical, 
4 if the elements are integers less than 2*31 in magnitude, 
and 8 for other numbers. 

In designing an algorithm for a particular purpose, it 
frequently happens that one may trade time for space; that 
is, an algorithm which requires little computer time may 
require more storage space for intermediate results, and an 
algorithm which requires little storage may be less 
efficient in terms of time. Hence, the information provided 
by the functions i21 (computer time used) and i22 (available 
storage space) may be helpful in designing algorithms. For 
example, the function TIME of Appendix B can be used to 
determine the computer time used in the execution of a 
function. 

Moreover, since the functions i21 and i22 can, like all 
of the I-beam functions, be used within a defined function, 
they can be used to make the execution dependent upon the 
space available or the computer time used. 
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X 



19 

20 
21 
22 
23 
24 
25 
26 
27 
28 
29 



Definition of i£ 



Accumulated keying time (time during which the keyboard 

has been unlocked awaiting entries) during this session. 

The time of day. 

The central computer time used in this session. 

The amount of available space (in bytes) . 

The number of terminals currently connected. 

The time at the beginning of this session. 

The date. 

The first element of the vector i2 7. 

The vector of statement numbers in the state indicator. 

A code indicating the terminal device being used. 

User sign-on number. 



NOTES 

1. All times in lf60 seconds 

2. Date is represented by a 6-digit integer; successive 
digit pairs represent month, day, and year. 

3. i2 7 yields a vector; all other results are scalars. 



Table 3.10: SYSTEM DEPENDENT FUNCTIONS 



Keying time is defin 
since sign-on during whic 
awaiting entry. The asso 
in conjunction with D or HI 
time taken by a student i 
following example shows 
multiplication drill which 
taken (in whole minutes 
question: 



ed as the total accumulated time 

h % the keyboard has been unlocked 

ciated function (il9) may be used 

input to determine the amount of 

n responding to a question. The 

the definition and use of a 

tells the student how long he has 

and seconds) to answer each 



[1] 
[2] 
[3] 
[4] 
C5] 
[6] 
[7] 
[8] 
[9] 

6 3 

D: 

TIME: 
4 5 

WRONG 
D: 



VMULTDRILL N ; X ;Y ;TIME 

u*-y<-?n 

TIME+T19 

x+n 

TIME+ (H9 )-TIME 
^8xil^x/y 

'TIME: ';2+60 6 60TTIME 

+ 1 

'WRONG, TRY AGAIN' 

+ 3V 

MULTDRILL 12 12 



30 
TRY 



AGAIN 
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Such a drill could be expanded to accumulate statistics of 
the student's response times or to use some function of the 
response times to control the difficulty of the questions 
posed. 

Since times are expressed in units of lv60 seconds, the 
time in hours, minutes, and seconds can be determined by an 
expression of the form 3 + 24- 60 60 60ti21 . Similarly, a 
3-element vector representing the date can be obtained from 
the expression (3pl00)Ti25. 

The expression i2 7 provides the vector of statement 
numbers in the state indicator, with the first position 
occupied by the number of the statement on which the 
innermost function is suspended. If no functions are 
suspended, the vector i2 7 is empty. 

The expression 12 6 yields a scalar which is the first 
element of 127. It is therefore equal to the number of the 
statement being, or about to be, executed and is 
particularly useful in branches. For example, ->/l/ + i2 5 causes 
a forward jump of N statements. Moreover, entering ->i2 6 is 
a safe way to resume execution without having to read and 
enter the statement number printed at the point of the last 
suspension. It is even more convenient to resume by 
entering ->£ , after first defining the function C as follows: 

VZ«-C 
[1] Z«-(l27)[2]V 
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PART 4 

LIBRARY FUNCTIONS 

A user may load or copy functions from any workspace 
for which he knows the library number and workspace name 
(and password, if any) . Moreover a listing of the 
workspaces in Library N can be obtained by the command 
)LIB N for any public library, i.e., for any library whose 
number is below 1000. 

A public library may be used for the casual sharing of 
functions among a group of co-workers. When intended for 
more general use, a library function should be thoroughly 
tested and well-documented, and should incorporate messages 
for the guidance of the user. It is therefore good practice 
to restrict certain of the public libraries to such 
functions as are of general interest and have passed 
appropriate acceptance tests. 

In the APL\360 system as distributed, Library 1 is 
restricted in this manner. This section treats each of the 
workspaces in this library by loading each and displaying 
the descriptions contained in the workspaces themselves. 
Further information on the functions in each workspace can 
(except in the case of the locked functions in WSFNS) be 
obtained by displaying the function definitions. 





)L0AD 1 


ADVANCEDEX 










ADVANCEDEX SAVED 7/14 


/68 16 


, 5 3 . 1 9 










)FNS 














AH 


ASSOC 


BIN 


COMB 


DTH 


ENTER 


F 


FC 


GC 


GCD 


GCV 


HILB 


HTD 


IN 


INV 


INVP 


INI 


LFC 


LOOKUP 


PALL 


PER 


PERM 


PO 


POL 


POLY 


POLYB 
DESCRIBE 


RESET 


TIME 


TRUTH 


ZERO 







EACH OF THE VARIABLES OF THIS WORKSPACE WHICH BEGINS WITH THE 
LETTER D IS THE DESCRIPTION OF THE FUNCTION WHOSE NAME IS 
OBTAINED BY REMOVING THE D« FOR FURTHER DETAILS SEE APPENDIX 
B OF THE APL\360 MANUAL. 
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)LOAD 1 PLOTFORMAT 
PLOTFORMAT SAVED 07/20/68 31 o 07 o 27 

)FNS 
AND DESCRIBE DFT EFT 



PLOT 



VS 



DESCRIBE 

THE FUNCTIONS INCLUDED IN THIS WORKSPACE ARE LISTED BELOW: 

SYNTAX VES_CRIPTION 

Z+A AND B ESSENTIALLY A COLUMN -CATENATOR , WITH SOME EXTRA 
EFFECTS WHEN THE ARGUMENTS ARE NOT MATRICES. 
THIS FUNCTION IS DESIGNED TO BE USED EITHER 
INDEPENDENTLY , OR IN CONJUNCTION WITH VS. IT 
PROVIDES A CONVENIENT WAY OF FORMING INPUT 
TO DFT AND EFT. 

Z<-A DFT B FORMS FIXED -POINT OUTPUT. MORE DETAILED DIREC- 
TIONS CAN BE FOUND IN THE VARIABLE HOWFORMAT . 

Z+A EFT B FORMS EXPONENTIAL OUTPUT. MORE DETAILED DIREC- 
TIONS CAN BE FOUND IN THE VARIABLE HOWFORMAT. 

A PLOT B GRAPHS ONE OR MORE FUNCTIONS SIMULTANEOUSLY. 

DIRECTIONS FOR USING PLOT CAN BE FOUND IN THE 
VARIABLE HOWPLOT\ 

Z+-A VS B ESSENTIALLY A COLUMN -CATENATOR , SIMILAR TO AND 

EXCEPT THAT THE RIGHT-HAND ARGUMENT MUST BE OF 
RANK < 1, IT IS DESIGNED PRIMARILY TO PROVIDE 
CONVENIENT FORMATION OF INPUT TO PLOT FUNC- 
TION. WHETHER USED BY ITSELF OR WITH AND, VS 
WILL CAUSE ITS RIGHT ARGUMENT TO APPEAR AS THE 
LEFTMOST COLUMN OF THE RESULTANT ARRAY. (THE 
RESULTANT WILL BE AN ARRAY OF RANK THREE, 
CONSISTING OF A SINGLE PLANE). 

BOTH AND AND VS WORK WITH EITHER 1 OR -ORIGIN INDEXING 
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HOWFORMAT 

THE FUNCTIONS DFT AND EFT WILL ARRAY NUMBERS IN DECIMAL AND 
EXPONENTIAL FORM, RESPECTIVELY, FOR TABULAR OUTPUT, THEY 
MAY BE USED TO GENERATE IMMEDIATE OUTPUT, OR TO STORE AN 
IMAGE FOR LATER PRINTING, THE TWO FORMS ARE: 

PATTERN DFT TABLE 
PATTERN EFT TABLE 



AND 



IMAGES-PATTERN DFT TABLE 
IMAGES-PATTERN EFT TABLE 



THESE FUNCTIONS WORK PROPERLY ONLY WITH 1 -ORIGIN INDEXING, 

RIGHT ARGUMENT: AN ARRAY TO BE FORMED, 

IT MUST BE NUMERICAL, AND OF RANK < 3. THE FIRST 
PLANE OF A 3-DIMENSIONAL ARRAY WILL BE TREATED AS A 
MATRIX, AND ALL OTHER PLANES WILL BE DISREGARDED , 
ARRAYS OF HIGHER RANK WILL BE SIGNALLED AS A 'RANK 
PROBLEM, ' 

LEFT ARGUMENT: ONE OR MORE INTEGERS TO CONTROL THE FORMAT. 
FRACTIONAL NUMBERS WILL BE SIGNALLED AS A 'DOMAIN 
PROBLEM,' 

A SINGLE INTEGER: 

DFT: SPECIFIES THE NUMBER OF DIGITS TO THE RIGHT OF 

THE DECIMAL POINT IN-- DECIMAL FORMAT, 

EFT: SPECIFIES THE NUMBER OF SIGNIFICANT DIGITS IN 

EXPONENTIAL FORMAT, ONE DIGIT ALWAYS APPEARS TO THE 

LEFT OF THE DECIMAL POINT, COLUMNS WILL BE SPACED 

UNIFORMLY, WITH SPACING SUCH THAT THERE WILL BE TWO 

SPACES BETWEEN THE CLOSEST NUMBERS, 

A PAIR OF INTEGERS: THE FIRST SPECIFIES THE TOTAL 

NUMBER OF SPACES TO BE ALLOCATED TO EACH COLUMN, AND 

THE SECOND IS USED AS ABOVE. 

DFT: THE FIRST NUMBER MUST BE AT LEAST TWO LARGER 

THAN THE SECOND, 

EFT: THE FIRST NUMBER MUST BE AT LEAST SIX LARGER 

THAN THE SECOND, IF THE LEFT NUMBER IS TOO SMALL, 

THIS WILL BE SIGNALLED AS A 'DOMAIN PROBLEM,' 

MORE THAN ONE PAIR OF INTEGERS:- THERE MUST BE ONE PAIR 
FOR EACH COLUMN OF OUTPUT (OR EACH ELEMENT OF A VEC- 
TOR), EACH PAIR WILL BE INTERPRETED AS ABOVE, AND 
WILL APPLY TO THE LAYOUT OF THE CORRESPONDING COLUMN. 
IF THE NUMBER OF PAIRS DOES NOT MATCH THE NUMBER OF 
COLUMNS, THIS WILL BE SIGNALLED AS A 'LENGTH PROBLEM.' 
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HOWPLOT 

THE FUNCTION PLOT WILL GRAPH ONE OR MORE FUNCTIONS 

SIMULTANEOUSLY, AUTOMATICALLY SCALING THE VALUES TO FIT 
APPROXIMATELY WITHIN SCALE DIMENSIONS SPECIFIED BY THE USER . 
IT WILL WORK ONLY IN 1-ORIGIN INDEXING. 

THE FORM IN WHICH PLOT IS USED IS: 

SCALESIZE PLOT FUNCTION 

LEFT ARGUMENT: ONE OR TWO NUMBERS. 

THE FIRST NUMBER SPECIFIES THE APPROXIMATE SIZE OF THE 
VERTICAL AXIS AND THE SECOND NUMBER DOES THE SAME 

FOR THE HORIZONTAL AXIS. 

IF ONLY ONE NUMBER IS SUPPLIED, IT IS APPLIED TO BOTH 
AXES . 

THERE IS NO BUILT-IN LIMIT TO THE DIMENSIONS , AND A 
HORIZONTAL AXIS LARGER THAN THE WORKSPACE WIDTH WILL 
CAUSE SOME POINTS TO BE PRINTED ON THE NEXT LOWER 

LINE. 

RIGHT ARGUMENT: A RECTANGULAR ARRAY WITH RANK < 3. 

SCALAR: WILL BE TREATED AS A VECTOR OF LENGTH. ONE. 

VECTOR: WILL BE PLOTTED AS ORDINATE AGAINST ITS OWN 
INDICES AS ABSCISSA. 

MATRIX: THE LEFTMOST COLUMN WILL BE TAKEN AS THE 

ABSCISSA AND ALL OTHER COLUMNS WILL BE PLOTTED AS 
ORDI NATES. A DIFFERENT PLOTTING SYMBOL UP TO THE 

NUMBER OF SYMBOLS AVAILABLE WILL BE USED FOR EACH 
COLUMN. IN CASE TWO ORDINATES HAVE A COMMON POINT, 
THE SYMBOL FOR THE COLUMN FURTHEST TO THE RIGHT WILL 
BE USED. 

^-DIMENSIONAL ARRAY: THE FIRST PLANE WILL BE PLOTTED 
AS A MATRIX, AND ALL OTHER PLANES -WILL BE DISREGARDED. 
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AUXILIARY FUNCTIONS: TEE FUNCTIONS AND AND VS CAN BE 

USED TO GENERATE THE RIGHT ARGUMENT IN THE PROPER FORM 
FOR PLOT. FOR EXAMPLE : 

2 PLOT Z AND Y VS X 

PLOT CHARACTERS: THE SYMBOLS USED ARE ASSIGNED TO THE 

VARIABLE PC IN LINE 1 OF PLOT. THE ALPHABET 

SUPPLIED IS 'OvtoVAD' o THIS ALPHABET MAY BE EXTENDED 
AND MODIFIED AS DESIRED, USING THE NORMAL 

FUNCTION-EDITING PROCEDURES: EITHER CHANGE LINE 1 OF 
THE FUNCTION, OR DELETE IT AND INDEPENDENTLY SPECIFY 
A VALUE FOR PC. 

HISTOGRAMS: PLOT CAN BE USED TO GENERATE HISTOGRAMS BY 

SETTING THE VARIABLE HS TO 1 IN LINE 2 OF THE 

FUNCTION. ALTERNATIVELY, LINE 2 CAN BE DELETED, AND 
HS CAN BE SET EXTERNALLY. 



)L0AD 1 APLCOURSE 
APLCOURSE SAVED 07/19/68 25„58 o 06 

)FNS 
BIX CHECK DESCRIBE DIM DRILL DYAD1 

EASY EASYDRILL FORM FUNDRILL GET 

INTER LOG QUES RANDOM REDSCAPATCH REPP 

SETPARAMETERS TEACH TRACE 



DYAD2 
INPUT 



DESCRIBE 

THE MAIN FUNCTIONS IN THIS LIBRARY WORKSPACE ARE: 

TEACH 
EASYDRILL 

ALL OTHER FUNCTIONS ARE SUBFUNCT10NS AND ARE NOT 

SELF-CONTAINED . 

SYNTAX DESCRIPTION 



TEACH 



EASYDRILL 



AN EXERCISE IN APL FUNCTIONS USING SCALARS 
AND VECTORS . THE FUNCTION PRINTS OUT THE 
CHOICES AND OPTIONS AVAILABLE. EXAMPLES 
ARE SELECTED AT RANDOM WITH A RANDOM 
STARTING POINT. 

THIS IS THE SAME AS TEACH EXCEPT THAT THE 
PROBLEMS SELECTED ARE GENERALLY SIMPLER IN 
STRUCTURE. PROBLEMS INVOLVING VECTORS OF 
LENGTH ZERO OR ONE ARE EXCLUDED. 
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NOTE: FOR EITHER FUNCTION, A RESPONSE OF - PLEASE - WILL 
DISCLOSE THE PROPER ANSWER . A RESPONSE OF - STOP - WILL 
TERMINATE THE DRILL. 

TEACH 
ARE YOU ALREADY FAMILIAR WITH THE INSTRUCTIONS? (TYPE 
Y FOR YES AND N FOR NO, ) 
N 

THIS IS AN EXERCISE IN SIMPLE APL EXPRESSIONS . YOU WILL 
FIRST HAVE THE OPPORTUNITY TO SELECT THE FEATURES YOU WISH 
TO BE DRILLED IN. THE EXERCISE THEN BEGINS, FOR EACH 

PROBLEM YOU MUST ENTER THE PROPER RESULT. ANSWERS WILL 

CONSIST OF SCALAR INTEGERS IF EXERCISES WITH VECTORS ARE NOT 
DESIRED; OTHERWISE ANSWERS WILL CONSIST OF SCALARS OR 
VECTORS, A VECTOR OF LENGTH ZERO REQUIRES THE RESPONSE iO, 
A VECTOR OF LENGTH ONE REQUIRES THE RESPONSE X, WHERE X IS 
THE VALUE OF THE ELEMENT. YOU HAVE THREE TRIES FOR EACH 

PROBLEM. TYPE STOP AT ANY TIME TO TERMINATE THE EXERCISE 
AND PRODUCE A RECORDING OF YOUR PERFORMANCE. TYPING 
STOPSHORT WILL TERMINATE THE EXERCISE BUT WILL NOT PRODUCE 
A RECORD OF PERFORMANCE. TYPING PLEASE FOR ANY PROBLEM 
WILL LET YOU PEEK AT THE ANSWERS. TYPE Y UNDER , EACH 
FUNCTION FOR WHICH YOU WANT EXERCISE: 



SCALAR DYADIC FUNCTIONS 

+ -Xv*[~|_ <<=>>*! | AV®tVV 

YYYYY . Y 

SCALAR MONADIC FUNCTIONS 

YY 
TYPE Y IF EXERCISES ARE TO USE VECTORS, N OTHERWISE 
N 

~6x~3 
D: 



1"2.5 



D: 

2 
TRY AGAIN 
D: 

3 

D: 

STOPSHORT 



0+7 
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)LOAV 1 WSFNS 
WSFNS SA VED 07/20/68 3 1 c 2 5 „ 2 3 

)FNS 
DELAY DESCRIBE DIGITS ORIGIN SETLINK SFEI WIDTH 

DESCRIBE 



THE FUNCTIONS ORIGIN, WIDTH, AND DIGITS ARE EACH 
SIMILAR TO THE COMMAND OF THE SAME NAME, EXCEPT THAT EACH IS 
A FUNCTION RATHER THAN A COMMAND AND MAY THEREFORE BE USED 
WITHIN OTHER FUNCTIONS. EACH HAS AN EXPLICIT RESULT WHICH 

IS THE PREVIOUS VALUE OF THS RELEVANT SYSTEM PARAMETER . 

FOR EXAMPLE, THE FOLLOWING FUNCTION: 

VF X 
[ 1] X+-ORIGIN X 
[2] G 
[3] X+ORIGIN *V 

WILL EXECUTE THE FUNCTION G WITH WHATEVER INDEX ORIGIN IS 
SPECIFIED BY THE ARGUMENT OF F, AND WILL RESTORE THE INDEX 
ORIGIN TO THE VALUE THAT IT HAD BEFORE THE EXECUTION OF F. 

THE FOLLOWING FUNCTIONS ARE ALSO AVAILABLE: 

SYNTAX DESCRIPTION 

Z+SETLINK X SETS THE VALUE OF THE LINK IN THE CHAIN OF 
NUMBERS GENERATED IN THE USE OF THE ROLL AND 
DEAL FUNCTIONS . THE EXPLICIT RESULT PRODUCED 

BY SETLINK IS THE PREVIOUS VALUE OF THE LINK. 

THE RESULTS PRODUCED BY THE ROLL AND DEAL 
FUNCTIONS ARE NOT THE LINKS THEMSELVES , BUT 
RATHER SOME FUNCTION OF THEM. THE LENGTH OF 

THE CHAIN {BEFORE REPETITION) IS 1+2*31. 

DELAY X DELAYS EXECUTION FOR X SECONDS. 

SFEI X WHERE 0<J<31, SETS THE VALUE OF FUZZ. 

THE EXPLICIT RESULT PRODUCED BY SETFUZZ IS THE 

PREVIOUS VALUE OF FUZZ. THE FUZZ VALUE DETERMINES 

THE NUMBER OF LOW- ORDER BITS IGNORED IN COMPARISONS 
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)LOAD 1 TYPEDRILL 
TYPED RILL SAVED 07/14/68 19 42 16 



)FNS 








DESCRIBE 


IN 


INSTRUCTIONS 


MA TCH 


STATISTICS 


TIME 


TYPEDRILL 


WS 


DESCRIBE 









PRT QUERY 



THE MAIN FUNCTION IN THIS WORKSPACE IS TYPEDRILL; ALL 
OTHERS ARE SUBFUNCT1 ONS . TO USE IT, SIMPLY ENTER 

TYPEDRILL 

TYPEDRILL IS A TIMED TYPING EXERCISE. THE SYSTEM 
RESPONDS WITH THE STATEMENT 'YOU ARE IN CONTROL STATE 1 , 
FOUR COMMANDS ARE AT YOUR DISPOSAL: ENTER, DRILL, STAT, AND 
STOP. ENTERING ONE OF THEM BRINGS YOU INTO THAT STATE: 

ENTER: YOU MAY ENTER ONE -LINE SENTENCES OR 
EXPRESSIONS ON WHICH YOU WISH TO BE DRILLED . ENTERING 
A BLANK LINE (CARRIAGE RETURN ONLY) RETURNS YOU TO THE 
CONTROL STATE „ 

DRILL: ONE OF THE LINES ENTERED VIA THE ENTER STATE IS 
SELECTED AT RANDOM AND PRINTED. YOU ARE THEN EXPECTED 
TO ENTER THE SAME LINE. IF IT IS CORRECT, THE TIME 
TAKEN IS PRINTED (IN SECONDS), IF NOT YOU ARE ASKED TO 
RETYPE IT. A BLANK LINE CAUSES RETURN TO THE CONTROL 
STATE. 

STAT: THE ACCUMULATED STATISTICS ARE PRINTED. THE 
HORIZONTAL AXIS SHOWS THE TRIAL NUMBERS AND THE 
VERTICAL SHOWS THE TIME IN SECONDS. A VERTICAL ARROW 
INDICATES THAT THE TIME EXCEEDED THE LIMITS OF THE 
GRAPH, THE RETURN TO THE CONTROL STATE IS AUTOMATIC. 

STOP: STOPS THE DRILL AND PRINTS THE STATISTICS . 
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TYPEDRILL 
CONTROL WORDS ARE-. ENTER, DRILL, STAT, AND STOP, 

YOU ARE IN CONTROL STATE 

ENTER 

NOW IS THE TIME FOR ALL GOOD MEN TO COME TO 

I SING OF OLAF GLAD AND BIG 

X+\ [P*Q+Y*R<S 

YOU ARE IN CONTROL STATE 

DRILL 

NOW IS THE TIME FOR ALL GOOD MEN TO COME TO 

NOW IS THE TIME OFR ALL GOOD MEN TO COME TO 

A 

NOW IS THE TIME FOR ALL GOOD MEN TO COME TO 

16. 9 

X<-\ [P*Q+Y*R<5 

X+\ [P*Q+Y*R<5 

19.9 

I SING OF OLAF GLAD AND BIG 

YOU ARE IN CONTROL STATE 
STOP 
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Appendix A 
SAMPLE TERMINAL SESSION 



)1776 

010) 19.32.36 07/03/68 JANET 



12 



12 



7 

1. 44 

1 4 
"5 

CATS 

10 

18 

16 
24 



4 P L \ 3 6 
3x4 

X 

X+Y 
144£'~2 



P«-l 2 3 4 
PxP 
9 16 
PxJ_ 
10 15 "20 
Q+'CATS 1 



YZ+5 
YZ 1+5 
YZ+YZ1 

3+4x5+6 
v 
+ 5+6 

X+-3 
XxY + 4 



FUNDAMENTALS 

Entry automatically indented 
Response not indented 
X is assigned value of 
the expression 

Value of X typed out 
Negative sign for negative 
constants 



Exponential form of constant 

Four-element vector 

Functions apply element by element 

Scalar applies to all elements 

Character constant (4-element 
vector) 

Multi-character names 



Correction by backspace 
and linefeed 



Executed from right to left 
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X Y 
SYNTAX ERROR 
X Y 

A 

XY 
VALUE ERROR 
XY 

A 



20.4 

12 

24 



4x3T5.1 

(4x3)T5.1 

4xr5 1 

X<-\5 

X 

3 4 5 

lO 



7^5 -X 

Y 
4 3 2 10 

X[Y 
4 3 3 4 5 

X<Y 
110 

oi 
3. 141592654 

Ovl 2 
3.141592654 1.570796327 

Z«-4 5 9 

0*^180 
0.7853981634 1.570796327 

lOl 
0. 8418709848 

201 2 
0.5403023059 "0.4161468 36 5 

301 
1. 557407725 

301 
0. 7853981634 

30 30i7 
12 3 4 5 6 7 

Y+l 2 

40Y 
1.414213562 2.236067977 

OOtY 

0.8660254038 

701 2 
0.761594156 0.9640275801 
70701 2 

1 2 



Entry of invalid expression 
Shows type of error committed 
Retypes invalid statement with 

caret where execution stopped 
Multi-character name (not X*Y) 

XY had not been assigned a value 

SCALAR FUNCTIONS 

Dyadic maximum 

Monadic ceiling 

Index generator function 



Empty vector 

prints as a blank line 
All scalar functions extend 

to vectors 



Relations produce 

logical (0 1) results 
Pixi 

Pi-M 2 



Conversion of X to radians 

Sin 1 

Cos 1 2 

Tan 1 

Arctan 1 

Tan Arctan 12 3 4 5 6 7 

( 1+Y*2)*. 5 
( 1-*Y*2)*. 5 
Tanh 1 2 
Arctanh Tanh 1 2 
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DEFINED FUNCTIONS 



[1] 
[2] 



10 

20 

[1] 
[2] 



VZ<-X F Y 

Z+( (X*2) + Y*2)*, 5 

V 

3 F 4 

P«-7 
Q+(P+1)F P-l 



4x3 F 4 

VB^-G A 
B+(A>0)-A<0 
V 
£ 4 



Header (2 args and result) 
Function body 
Close of definition 
Execution of dyadic function F 



Use of F with expressions 
as arguments 



G is the signum function 
A and B are local variables 



G 6 



X+ 6 

G X 
1 

V# A 
[1] P<-(A>0)-A<0 
[2] V 

H"6 

P 
1 

Y+-H 6 
VALUE ERROR 

Y<-H 6 

A 

1Z+FAC N;I 
[1] Z«-l 
[2] I-f-0 
[3] L1:I«-I+1 
[4] ->0xxJ>^ 
[5] Z-f-ZxJ 
[ 6 ] +L 1 
C7] V 

FAC 3 



Like G but has no explicit result 
P is a global variable 



H has no explicit result 

and hence produces a value 
error when used to right 
of assignment 

FAC is the factorial function 



LI becomes 3 at close of def 
Branch to O (out) or to next 

Branch to LI (that is, 3) 



120 



FACL31 
FACL51 
F/4CC3] 
FACL51 
FACL31 
FACL51 
FACL31 



FAC 5 

ThFAC+3 
X+FAC 3 

1 

1 

2 

2 
3 
6 
4 
T&FAC+O 



Set trace on lines 3 and 5 of FAC 
Trace of FAC 



Reset trace control 
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MECHANICS OF 
FUNCTION DEFINITION 

1G<-M GCD N Greatest common divisor 

[1] G+-N function based on the 

[2] M<-M\N Euclidean algorithm 

[3] ->4xM*0 

[4] H1G+M Correction of line 1 

[2] [4]tf«-G Resume with line 4 

[5] [ID] Display line 1 

[ 1 ] G+M 

[1] [Q] Display entire GCD Function 

V G+M GCD N 
[ 1 ] G<-M 

[ 2 ] M+M | N 
[3] +4xM*0 
[ 4 ] /!/«-£ 

V Close of display, not close of def 
[5] -»-l Enter line 5 

[6] V Close of definition 

36 GCD 44 Use of GCD 

4 4 is GCD of 36 and 44 

VGCD Reopen def (Use V and name only) 

[6] [4.11MJ Insert between 4 and 5 

[4 2] [Q] Display entire function 

V G+M GCD N 
[ 1 ] G<-M 

[ 2 ] M<-M | N 

[3] +4x^*0 

C 4 ] N+G 

[4.1] M, N Fraction stays until close of def 

[5] ->1 

V End of display 

[6] V Close of definition 

3 6 GCD 4 4 
8 3 6 Iterations printed by 

4 8 line 5 (was line 4.1) 

4 Final result 

VGCZ?[D]V Reopen, display, and close GCD 

V G+M GCD N 
[ 1 ] G+M 

[ 2 ] M<-M | N 

[3] ->4xM*0 

[ 4 ] N+G 

[5] M 9 N Line numbers have been 

[6] +1 reassigned as integers 

V Close (Even number of V's in all) 
VGCD Reopen definition of GCD 

[7] [5] Delete line 5 by linefeed 

A 

V Close definition 
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[1] 

[2] 
Cl] 

[1] 
C2] 

120 



1Z+ABC X 

Z«-( 33x£+(i?x5)-6 

[109] 

Z«-( 33x£+(Z?x5)-6 

/ 1 /l 
Z«-( 3x£)+(Tx5)-6 
V 
FAC 5 



) ERASE FAC 
FAC 5 
SYNTAX ERROR 
FAC 5 

A 

VZ+BIN N 
Cl] L4: Z«-(Z ,0) + ,Z 
[2] +LA*N>pZV 

BIN 3 

BItfCl] L4:Z«-(Z,0) + 0,Z 

A 

Z«-l 

-►1 

13 3 1 

BINlll L1:Z«-(Z,0) + 0,Z 

A 

VBIiVC „1]Z«-1V 
)SI 
BINlll * 
+ 1 

14 6 4 1 

VBJtfCDDv 

V Z«-BTtf tf 
[1] Z«-l 

[2] Li4:Z-t-(Z,0) + 0,Z 
[3] +L4x#> p Z 
V 

SbBIN+2 
Q+BIN 3 



A function to show line editing 

A line to be corrected 

Initiate edit of line 1 

Types line, stops ball under 9 

Slash deletes, digit inserts spaces 

Ball stops at first new 

space. Then enter ) T 
FAC still defined 

Erase function FAC 

Function FAC no longer exists 



An (erroneous) function for 
binomial coefficients 



Suspended execution 

Assign value to Z 

Resume execution 

Binomial coefficients of order 3 

Same error (local variable Z 

does not retain its value) 

Insert line to initialize Z 
Display state indicator 
Suspended on line 1 of BIN 
Resume execution (BIN now correct) 

Display revised function 
and close definition 



Set stop on line 2 
Execute BIN 



BINl 21 



Stop due to stop control 
Display current value of Z 



Resume execution 



BINlll 



+2 



Stop again on next iteration 
Resume 



BINl 21 



Stop again 

Branch to (terminate) 



A. 5 



INPUT AND OUTPUT 





VMU LTD RILL N;Y;X 


[1] 


Y*-?N 


[2] 


Y 


[3] 


x+n 


[4] 


+0*\X='S' 


[5] 


+\X=x/Y 


[6] 


'WRONG, TRY AGAIN' 


C7] 


-*3V 




MULTDRILL 12 12 


2 10 




D: 






37 


WRONG 


, TRY AGAIN 


D: 






20 


6 7 




D: 






'S' 




VZ+ENTERTEXT 


[1] 


z+ % ' 


[2] 


D*-pZ 


[3] 


z+z,n 


[4] 


->2*D*pZ 


[5] 


V 




Q+ENTERTEXT 


THIS 


IS ALL 


CHARACTER INPUT 



A multiplication drill 

pN random integers 

Print the random factors 

Keyboard input 

Stop if entry is the letter S 

Repeat if entry is correct product 

Prints if preceding branch fails 

Branch to 3 for retry 

Drill for pairs in range 1 to 12 

Indicates that keyboard entry 
is awaited 



THIS IS ALL CHARACTER INPUT 

N<-5 

'NOTE: i f ;N; ' IS ' ; iN 
NOTE: i5 IS 1 2 3 4 5 



Entry of letter S stops drill 
Example of character (D) input 
Make Z an empty vector 
D is the length of Z 
Append character keyboard entry 
Branch to 2 if length increased 
(i.e., entry was not empty) 

Keyboard 

entries 
Empty input to terminate 
Display Q 



Mixed output statement 



RECTANGULAR ARRAYS 



P<-2 3 5 7 

T+'OH MY' 
pT 



P,P 
2 3 5 7: 

T,T 
OH MYOH MY 

T 9 P 
DOMAIN ERROR 

T,P 

A 



Dimension of P 
Character vector 

Catenation 



Characters cannot be catenated 
with numbers 
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M+-2 3p2 3 5 7 11 13 Reshape to, produce a 2x3 matrix 
M Display of an array of rank >l 

is preceded by a blank line 

2 3 5 

7 11 13 

2 4pT A 2x4 matrix of characters 

OH M 
YOH 

6pM A matrix reshaped to a vector 

2 3 5 7 11 13 

,M Elements in row-major order 

2 3 5 7 11 13 

P+ 9 M 

PC 3] Indexing (third element of P) 

5 

P[l 3 5] A vector index 

2 5 11 

PC i 3] The first three elements of P 

2 3 5 

PCpP] Last element of P 

AfCl;2] Element in row 1, column 2 of M 



13 
3 



Ml 1 ; ] ROW 1 of M 

2 3 5 



Mil 1;3 2] Rows 1 and 1, columns 3 2 



5 3 
5 3 



BCE 
GKM 



EC 
EC 



A + * ABCDEFGHIJKLMNOPQ 1 The alphabet to Q 

AIM] A matrix index produces 

a matrix result 



AlMll 1;3 2]] 



AfCl;]«-15 3 12 Respecifying the first row of M 

M 



15 3 12 
7 11 13 
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Q+-3 1 5 2 4 6 

5 2 11 3 7 13 

QLQ1 
5 3 4 12 6 

PC 3] 
5 

) ORIGIN 
IMS 1 

PC 3] 
7 

PCO 1 2] 
2 3 5 

i 5 
12 3 4 

) ORIGIN 1 
WAS 

i5 
12 3 4 5, 



A permutation vector 
Permutation of P 

A new permutation 

Present index origin is 1 

Set index origin to 

First three elements of P 

Result of index generator 
begins at origin 



y«-?3p9 

M+?3 3p9 
N+ ? 3 3 p 9 
V 
1 

M 



FUNCTIONS ON ARRAYS 

Vector of 3 random integers (1-9 \ 
Random 3 by 3 matrix 
Random 3 by 3 matrix 



9 
10 



N 



1 
6 
5 

M+N 

13 5 
15 7 
13 12 



Sum (element-by-element) 
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M[N 



Maximum 



7 9 4 
5 8 6 
9 8 7 

M<N 


1 
110 



10 
14 



+ /V 

x/V 



+ /C1]A/ 
13 22 12 

+/L21M 

20 14 13 

+ /M 
20 14 13 

\ /M 
9 8 7 

Z«-l. 5 

+/(1 2oX)*2 
1 

O/l 2,* 
. 07067822453 

Y^O/0 2, J 

J 
0, 9974949866 

Y = 10X 
1 

79 123 81 
46 84 58 
84 95 66 
M+ , <N 
111 
111 
2 3 2 

M+,xV 
51 25 56 



Comparison 

Sum- reduction of V 
Product- reduction 

Sum over first coordinate of M 

(down columns) 
Sum over second coordinate of M 

(over rows) 

Sum over last coordinate 
Maximum over last coordinate 

Sin squared plus Cos squared 
Sin Cos X 

( l-( COS I)*2)*,5 

An identity 

Ordinary matrix (+,x inner) 
product 

An inner product 



+,x inner product with vector 
right argument 
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V 
2 17 

V c ■- x i 5 Outer product (times) 

2 4 6 8 10 

12 3 4 5 

7 14 21 28 35 

7°.<i9 Outer product 

011111111 

111111111 

000000111 

7° . xM An outer product of rank 3 

14 18 8 

10 16 2 

2 10 14 

A blank line between planes 

7 9 4 

5 8 1 

15 7 

49 63 28 

35 56 7 

7 35 49 

MIXED FUNCTIONS 

£K?10p5 A random 10 element vector 

Q (range 1 to 5) 

1434542142 

+/[l]#°.=i5 Ith element of result is number 
2 2 14 1 of occurences of the 

value I in Q 

2 1§M Ordinary transpose of M 

7 5 1 
9 8 5 
4 17 

§M Ordinary transpose of M (monadic) 

7 5 1 
9 8 5 
4 17 
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T+2 

T 



3 4pi24 



An array of rank 3 



12 3 4 
5 6 7 8 
9 10 11 12 



13 
17 
21 



14 
18 
22 



15 
19 
23 



16 
20 
24 



3 1 2§T 

13 
14 
15 
16 



Transpose of T (dimension 
of result is 3 4 2) 



5 17 

6 18 

7 19 

8 20 



9 21 

10 22 

11 23 

12 24 

1 1§M 
8 7 

1 1 2§T 

12 3 4 

17 18 19 20 
X^o(0 } i5)t6 
)DIGITS 4 
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Diagonal of M 

Diagonal section in first 
two coordinates of T 



Set number of output digits to 4 



$1 



3° .OX 



0. 000£0 
5. OOOff"! 
8„ 660tf 1 
1. OOOtfO 
8. 660£~1 
5. OOOtf - ! 



000£0 
6 6 0#~1 
000£~1 
744£ , ~16 



5, 000£_1 
'8 „ 660£~1 



o 000£'0 Table of sines, cosines, and 
5o774£'~l tangents in intervals 
lo732£'0 of 30 degrees 
5 734£15 
1. 732£0 
5. 7745 1 
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Q 
1434542142 

3$>Q Rotate to left by 3 places 

4542142143 

~3<t><3 Rotate to right by 3 places 

1421434542 

1 2<})[1]M Rotate columns by 

different amounts 

7 8 7 
5 5 4 
1 9_ 1 

2ct>[2]M Rotation of rows all 

by 2 to right 
9 4 7 

8 15 
5 7 1 

1 2 3$>M Rotation of rows 

9 4 7 
15 8 
15 7 

$Q Reversal of Q 

2412454341 

4>[1]M Reversal of M along 

first coordinate 
15 7 
5 8 1 
7 9 4 

<t>M Reversal along last coordinate 

4 9 7 
18 5 
7 5 1 
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£/«-£> 4 

U 
1 

U/Q 
5 

(~U)/Q 
14 3 4 4 

+ /U/Q 



1 1/lllM 

7 9 4 
15 7 

1 1/M 

7 4 
5 1 
1 7 

( ,M>5)/,M 

7 9 8 7 

7-f-l 10 1 

7\i3 
10 2 3 

7\Af 

7 9 4 

5 8 1 

10 5 7 
V\ 'ABC 1 
ABC 

10H 7 7 6 
1776 

811 7 7 6' 
1022 

( 4pl0)Tl776 
7 7 6 

( 3plO)Tl776 
7 6 

10 10T1776 







1 

7 7 

7 6 

6 

3805 

1 3 

22 



1 T 1 7 7 6 

24 60 60il 3 25 

24 60 60T3805 

25 

2ll 110 



Compression of Q by logical 

vector U 
Compression by not U 



Compression along first 
coordinate of M 



Compression along last 
coordinate 



,M is 794581157 

All elements of M which exceed 5 

Expansion of iota 3 

Expansion of rows of M 



Expansion of literal vector 

inserts spaces 
Base 10 value of vector 17 7 6 

Base 8 value of 1 7 7 6 

4 digit base 10 representation 

of number 1776 

3 digit base 10 representation 

of 1776 



Mixed base value of 1 3 25 

(time radix) 
Representation of number 3 805 

in time radix 
Base 2 value 
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M 



7 9 4 
5 8 1 
15 7 

) ORIGIN 



WAS 1 

1 

1 

WAS 

2 3 

4 

7 

7 3 



M[2;0] 

( ,M)[(pM)l2,0] 

) ORIGIN 1 



P 

5 7 

Pi7 

Pi6 



11 13 



Pi4 5 6 7 
; 7 4 

Q<-5 13 2 4 
R+Q\ ipQ 
R 

2 4 3 5 1 

QIR1 
12 3 4 5 

4«- ' i4B CDEFGHIJKLMNOPQ ' 

i4^i4, 'RSTUVWXYZ' 

A 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 

A\ »C" 
3 

J 

3 120 

oar 



Indexing of matrix in 0-origin. 

Note relation to indexing of 
ravel of M 

Restore 1-origin 



Index of 7 in vector P 
7 is 4th element of P 
6 does not occur in P, hence 
result is 1+pP 



A permutation vector 

R is the permutation inverse to Q 



A is the alphabet 

Rank of letter C in alphabet is 3 
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m<-3 5p »: 


THREESHORTWORDS ' 




M 






THREE 








SHORT 








WORDS 


J+A\M 
J 






20 


8 18 


5 


5 


19 


8 15 


18 


20 


23 


15 18 
ALJ1 


4 


19 


THREE 








SHORT 








WORDS 


3? 5 






5 1 


2 
6?5 






DOMAIN ERROR 








6? 5 








A 








X+ 8 ? 8 








X 






4 6 


7 2 5 


1 


8 3 


6 4 


8 15 


2 


3 7 


1 2 


3 4 5 


6 


7 8 


8 7 


6 5 4 


3 


2 1 



A matrix of characters 



U+Ae'NOW IS THE TIME 1 
' 01' [1 + tV] 
00001001100011100011001000 

EHIMNOSTW 

( i8)e3 7 5 
00101010 



Ranking of M produces a matrix 



Indexing by a matrix produces 
a matrix 



Random choice of 3 out of 5 
without replacement 



A random permutation vector 

Grading of X 

Arrange in ascending order 

Arrange in descending order 

Membership 
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Appendix B 



ADVANCED EXAMPLES 



This section presents a set of examples less elementary 
than those of Appendix A. These examples are all contained 
in Workspace ADVANCEDEX of Library 1. A user may therefore 
load, use, and trace any of the functions as an aid to 
understanding their behavior. Displays of intermediate 
results may also be inserted. For example, the statement 

P+(P, 0)+0 ,P 

occurring in a function could be changed (perhaps by the use 
of line editing) to the following form: 

n<-p<-(n*-p,o)+n<-o ,p 

Each execution of the statement will now perform as before, 
except that each of the results 0,P and P,0 and P will be 
typed out as well (in that sequence) . 

Programming techniques can be learned from a similar 
study of any well-written set of functions. All of the 
workspaces of library 1 may be used as a source of functions 
for such study. 



The index origin in the workspace ADVANCEDEX is set to 



1. 





)L0AD 1 ADVANCEDEX 








ADVANCEDEX SAVED 07/20/68 28, 


, 12 . 10 








)FNS 












AH 


ASSOC 


BIN 


COMB 


DTH 


ENTER 


F FC 


GC 


GCD 


GCV 


HILB 


HTD 


IN 


INV INVP 


INI 


LFC 


LOOKUP 


PACK 


PALL 


PER 


PERM PO 


POL 


POLY 
)VARS 


POLYB 


RESET 


TIME 


TRUTH 


UNPACK ZERO 


DAH 


DASSOC 


DBIN 


DC 0MB 


DDTH 


D ENTER 


DESCRIBE 


DF 


DEC 


DGC 


DGCD 


DGCV 


DHILB 


DHTD DIN 


DINV 


DINVP 


DIN1 


DLFC 


DLOOKUP 


DPACK 


DPALL DPER 


DPERM 


DPO 


DPOL 


DPOLY 


DPOLYB 


DTI ME 


D TRUTH D UNPACK 


DZERO 


TIMER 
DESCRIBE 













EACH OF THE VARIABLES OF THIS WORKSPACE WHICH BEGINS WITH THE 
LETTER D IS THE DESCRIPTION OF THE FUNCTION WHOSE NAME IS 
OBTAINED BY REMOVING THE D . FOR FURTHER DETAILS SEE APPENDIX 
B OF THE APL\360 USER'S MANUAL, 
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DP A CK 
THE FUNCTIONS PACK AND UNPACK ILLUSTRATE THE USE OF THE 
ENCODE AND/ DECODE FUNCTIONS IN TRANSFORMING BETWEEN A FOUR- 
NUMBER ENCODING OF SERIAL NUMBER (1 TO 9999), MONTH, DAY, 
AND YEAR, AND A SINGLE-NUMBER ENCODING OF THE SAME DATA, 

VPACKlUlV 

V Z<-PACK X 

[1] Z<- 10000 12 31 100 lX-1 
V 

VUNPACKtmv 

V Z<-UNPACK X 

[1] Z<-1+ 10000 12 31 100 tX 
V 

P<-PA CK 2314 7 17 68 

P 
86063867 

UNPACK P 
2314 7 17 68 

UNPACK PACK 2311 9 21 72 
2311 9 21 72 

PACK UNPACK 92137142 
92137142 

PACK 1 1 31 1 
3000 

UNPACK 30 
1 1 31 1 
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D ENTER 

THE FUNCTIONS ENTER, LOOKUP, AND RESET ILLUSTRATE A METHOD 
OF CONSTRUCTING AND USING LISTS OF VARIABLE LENGTH DATA, 
REPRESENTING EACH LIST BY A VECTOR OF CHARACTERS AND A 
VECTOR OF INDICES, ENTER AND LOOKUP EACH REQUEST INPUT (BY □ ) 
UNTIL AN EMPTY VECTOR (CARRIAGE RETURN ALONE) IS ENTERED, 



RESET RESETS LISTS (USE BEFORE ENTER AND LOOKUP), 
ENTER ACCEPTS SUCCESSIVE ITEMS OF NAMES AND DATA. 
LOOKUP PRINTS DATA ASSOCIATED WITH EACH NAME ENTERED 



[1] 
[2] 

[31 
[4] 
[5] 
[6] 
[7] 
[8] 
[9] 
[10] 



VENTERIU1V 
V ENTER ;X 

'ENTER NAME 1 

x<-,\n 

NAMES+-NAMES ,X 

Pl+Pl,p NAMES 

'ENTER DATA 1 

DATA+DATA ,□ 

P2+-P2 ,pDATA 
t t 

->1 



VLOOKUPlUlV 

V LOOKUP;X\J 

CI] ' ? ' 

[ 2 ] X+ , □ 

[3] +0xi0=pZ 

[4] J+(((liPl)- HPl)=pX)/\ 1 + pPl 

[5] J+(NAMESlPllJl° ,+ipI]A, =X)/J 

[6] -*-( 1 =pt7")/ 10 8 

[7] + l,p[]<-'MORE THAN ONE SUCH NAME' 

[8] DATALP2lJ]+\-/P2tl +J~] ] 

[9] -+1 

[10] 'NO SUCH NAME' 

[11] +1 



[1] 



VRESETLDlV 

RESET 

NAMES<-DATA*-pPl*-P2*-Q 



ENTER 



RESET 
ENTER 
NAME 



J, ARMSTRONG 
ENTER DATA 
PRESIDENT 

ENTER NAME 
H. LEVINE 
ENTER DATA 
VICE-PRESIDENT 

ENTER NAME 

LOOKUP 

9 

H n LEVINE 
VICE-PRESIDENT 

9 

L. YAVNER 
NO SUCH NAME 

9 
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DIN 



THE FUNCTIONS IN AND INI TAKE TWO ARGUMENTS; THE FIRST IS A 



WORD (I off. , 
ARGUMENT ARE 
INDICES OF 
FUNCTION IN 



A VECTOR) WHOSE OCCURRENCES IN THE SECOND 
TO BE DETERMINED, THE RESULT IS A VECTOR OF 

THE FIRST LETTER OF EACH OCCURRENCE. THE 

DETERMINES ALL OCCURRENCES , WHEREAS INI 
DETERMINES ONLY ALL NON-OVERLAPPING OCCURRENCES BY FIRST 
APPLYING THE FUNCTION IN AND THEN SUPPRESSING ALL OVERLAPS. 



VI/V[D]V 
V Z+A IN B;J 
[1] J+(Alll=B)/\pB 
[2] J+(J<l+(pB)-pA)/J 
L3] Z-H(5[Jo.t l+ip4]A =A)/J 



[1] 
[2] 



VTW1[Q]V 
T+A INI B 
T+A IN B 
-+2*J<pT*-( ■ 



'( \pT)eJ+l+((pA)>\ -/tll(2,l+pT)pT)il)/T 



W+'THE 1 

T<- r THE MEN THEN WENT HOME. 

W IN T 

W INI T 

'ABA 1 IN » NOW 'ABABABABAB ABABA 1 
8 10 12 14 16 
'ABA 1 INI ' NOW 'ABABABABAB ABABA 1 
12 16 



D TRUTH 

THE FUNCTION TRUTH PRODUCES THE MATRIX OF ARGUMENTS OF THE 
TRUTH TABLE FOR N LOGICAL VARIABLES. 

VTRUTHiniV 
V Z+-TRUTH N 
[1] Z<-2\1( 1 + \2*N) °„ r 2*N-\N 

V 

TRUTH 3 


















1 





1 








1 


1 


1 








1 





1 


1 


1 





1 


1 


1 



(TRUTH 3) + „x<t)2* l+i3 
2 3 4 5 6 7 



d.H 



DGCD 

THE FUNCTIONS GCD AND GC EACH EMPLOY THE EUCLIDEAN ALGORITHM 
TO PRODUCE THE GREATEST COMMON DIVISOR. GCD EMPLOYS TWO 

SCALAR ARGUMENTS, WHEREAS GC EMPLOYS A SINGLE ARGUMENT WHICH 
IS EXPECTED TO BE A TWO -ELEMENT VECTOR. 

THE FUNCTION GCV YIELDS THE GREATEST COMMON DIVISOR OF ALL 
ELEMENTS OF A VECTOR OF TWO OR MORE ELEMENTS. 

V£(7Z?[DJV 

V Z+-M GCD N 
[1] Z+M 

[ 2 ] M+M | N 
[3] N+-Z 

O] ->0*M 

V 

V£C[Q]V 

V Z+GC M 

[1] -*0*1+MH>M[1] ,Z+\ /M 

V 

VGCTCD-IIV 

V Z+-GCV W;A 

[1] +l*pW+Z,(A*0) /A+(Z+l/W) \W 

V 



84 GCD 90 
9 GCD 8 4 
GC 90 84 
GCV 90 84 
GCV 90 84 105 



DBIN 
THE FUNCTION BIN PRODUCES ALL BINOMIAL COEFFICIENTS UP TO ORDER N 

V Z+BIN N 
Cl] Z«-|_S( 0,\N) o 10, \N 
V 

BIN 4 



1 














1 


1 











1 


2 


1 








1 


3 


3 


1 





1 


4 


6 


4 


1 
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DPOLY 

THE FUNCTIONS POLY, POL, PO , AND POLYB EACH EVALUATE A 
POLYNOMIAL (OR POLYNOMIALS) , WHOSE COEFFICIENTS. ARE 

DETERMINED BY THE FIRST ARGUMENT, AND WHOSE POINT (OR 
POINTS) OF EVALUATION IS DETERMINED BY THE SECOND ARGUMENT . 
THE COEFFICIENTS ARE IN. ASCENDING ORDER OF ASSOCIATED 
POWERS . 

POLY SCALAR RIGHT ARGUMENT ONLY, 

POL SCALAR RIGHT ARGUMENT ONLY (USES INNER PRODUCT), 
POLYB SCALAR RIGHT ARGUMENT ONLY (USES BASE VALUE), 
PO APPLIES TO ARGUMENTS OF ANY RANK, THE VECTORS ALONG 

THE FIRST COORDINATE OF THE FIRST ARGUMENT ARE THE 
COEFFICIENTS OF THE POLYNOMIALS WHICH ARE EVALUATED 
FOR EACH ELEMENT OF THE SECOND ARGUMENT, 

VP£LY[D]V IPOLYBlUlV 

V Z+C POLY _X V Z+C POLYB X 
[1] Z + + /C*X* l+ip,C [1] Z<-X±$>C 

V V 

VP£L[Q]V VP0[-D]V 

V Z<-C POL X V Z<-C PO X 

[1] Z<-(X* 1+ip ,C) + ,xC [1] Z«-U°, *~l + i lppC)+ ,*C 

V V 



142 
1 



C-f-1 2 3 4 
C POLYB 3 

(C POLY 3)a,=(C POLYB 3),(C POL 3),C PO 3 



C PO 123456 
10 49 142 313 586 985 
U<-M*-§BIN 5 



1 


1 


l 




1 


1 


1 











1 


2 




3 


4 


5 














1 




3 


6 


10 



















1 


4 


10 






















1 


5 















PO i 


l6 








1 










l 




2 




4 




8 


16 


32 




l 




3 




9 




27 


81 


243 




i 




4 




16 




64 


256 


1024 




l 




5 




25 




125 


625 


3125 



36 216 1296 7776 
49 343 2401 16807 
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DTIME 

THE FUNCTION TIME YIELDS THE AMOUNT (IN MINUTES, SECONDS, 
AND 60THS OF A SECOND) OF CPU TIME USED SINCE ITS LAST 
PREVIOUS EXECUTION. IT IS USEFUL IN MEASURING THE EXECUTION 
TIMES OF OTHER FUNCTIONS. THE VARIABLE 'TIMER 1 IS ASSIGNED 
THE VALUE OF THE CUMULATIVE CPU TIME AT EACH EXECUTION OF 
THE FUNCTION TIME. 

V Z+TIME;T 

[1] Z^-60 60 60 T(T<-I21)-TIMER 
[2] TIMER+T 
V 

DCOMB 

THE FUNCTION COMB EMPLOYS RECURSIVE DEFINITION TO PRODUCE A 
2 1 N BY 2 MATRIX OF ALL POSSIBLE PAIRS OF ELEMENTS FROM \N , 

THE FUNCTION FC SHOWS AN ALTERNATE METHOD WHICH YIELDS THE 
SAME PAIRS BUT IN A DIFFERENT ORDER. 

THE FUNCTION LFC EMPLOYS FC TO GENERATE LETTER PAIRS. 
VC0MB[D]V 

V C+-COMB N;A;B 
[1] ->0x t /y<2 

[2] -+0x\N = 2xlpC<- 1 2 p 1 2 

[3] A+COMB N-l 

[4] C<-( (pA)+(N-l) ,0)p( ,A) , ,( iN-l)o ,[0 9 N 

V 

VFC[Q]V 

V C+-FC N;A ;B 

[ 1] B*-( \N) °„ +NpO 

[2] A+-(\N)° „+\N 

[3] C+-(2,NxN)p( ,B) , ,A 

[4] C-H5>(C[2;]<tf)/C 
V 

VLFC[Q]V 

V Z+LFC N 

[1] Z«- f ABCDEFGHIJKLMNOPQRSTUVWXYZ' IFC N] 
V 

TIME 
35 

TIME 
2 

COMB 4 FC 4 LFC 4 

1 2 

1 3 

2 3 

1 4 

2 4 

3 4 

TIME 
12 



1 


2 


AB 




1 


3 


AC 




1 


4 


AD 




2 


3 


BC 




2 


4 


BD 




3 


4 


CD 






TIME 




TIME 





8 





1 



B.7 



Z+-COMB 15 Z<-FC 15 

pZ pZ 

105 '2 105 2 

TIME" TIMff 

14 29 

THE FUNCTIONS DTH , HTD , AND AH CONCERN HEXADECIMAL NUMBERS 
LIMITED TO 8 DIGITS AND EMPLOYING THE CHARACTERS 
0123L+56789ABCDEF „ NEGATIVE NUMBERS ARE' REPRESENTED IN 2 T S 

COMPLEMENT FORM, WITH ANY OF THE CHARACTERS 8 THROUGH F IN 
THE LEFTMOST POSITION (OF EIGHT). LEADING ZEROS MAY BE 

OMITTED, 

DTH CONVERTS DECIMAL TO HEXADECIMAL ~ 
HTD CONVERTS HEXADECIMAL TO DECIMAL, 
AH ADDS HEXADECIMAL NUMBERS, 

VDTHtUlV 

V R+DTH X 

[1] i?«-, ( '0123456789,45 CD £T' )[1 + (8 P 16)tZ] 

V 

V R<-HTD X 

[1] R+{ (8- Pj! Z)p'0' ) ,X 

L2] i?^-L(16i 1+ ' 0123HS&789ABCDEF ? itf)-( 2*32 )xi?[l] € ' 89ABCDEF' 

[3] -*4x~A/Xe ' 0123456789/}BCD£F' 

[4] /?«-'' 

[5] 'NUMBER IS NOT HEX 1 

V 

\Mtf[[]]V 

V /?^ 4tf B 

[1] R<-DTH(HTD A)+HTD B 

V 

Z<-DTH 1776 

Z 
000006F0 

#?£ Z 
1776 

Z 4# Z 
00000DE0 

tfTD Z AH Z 
3552 

#27) '0 000 06F0' 
1776 

#TZ) '90000000' 
"1879048192 

HTD '00049//FC 
NUMBER IS NOT HEX 
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DZERO 

THE FUNCTION ZERO EMPLOYS THE METHOD OF FALSE POSITION TO 
DETERMINE TO WITHIN A TOLERANCE TOL A ROOT OF THE FUNCTION F 
LYING BETWEEN THE BOUNDS BUI AND B[2]. IT IS ASSUMED THAT 
F Bill AND F B[2] ARE OF OPPOSITE SIGN„ THE FUNCTION F IS A 
SPECIFIC POLYNOMIAL, BUT CAN BE CHANGED TO ANY DESIRED 
FUNCTION . 

VZ£ , i?C[D]V 

V Z+TQL ZERO B;T 
[1] -+0*\TOL> \T+F Z«-0.5x + /B 

[2] -KL ,B12±(0<T)*0<F Bl+Z 

V 



El]' 



VF[D]V 
V Z+F X 

Z+ "20 18 3 5 1 PO X 
V 



U^X<-"^+\9 
3 ~2 1012345 

F X_ 
169 12 29 20 3 4 7 

TIME 
1 19 

U+R+1E .6 ZERO 2 "l 
1 ,845121413 

TIME 
2 36 

F i? 
7,14140814£ 7 

TIMS' 
2 

D^D^^-lfi' 10 ZERO 1 2 
lo26397094 
"1 ,813305062£' 11 

TIME 
3 46 

U+FU+R4-1E~6 ZERO 1 2 
1. '2 63970852 

8o5i888359E 7 

2 13 



36 145 
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DHILB 
THE FUNCTION HILB PRODUCES A HUBERT MATRIX OF ORDER N, 



V#JLB[D]V 
V Z+HILB N 
[1] Z^-t l+(itf)° 
V 

HILB 3 


o +lfl 


1 










1 

Oo 5 

o 3333333333 




0.5 

0. 3333333333 

0. 25 


0.3333333333 
Oo 25 
Oo 2 



THE FUNCTIONS INV AND INVP EACH PRODUCE THE INVERSE OF THE 
MATRIX ARGUMENT SUPPLIED, EMPLOYING GAUSS-JORDAN (I.E., 
COMPLETE) ELIMINATION . INVP EMPLOYS PIVOTING AND INV DOES 
NOT. 

THE FIRST LINE APPENDS THE UNIT VECTOR 1>\N AS THE LAST 
COLUMN OF THE ARGUMENT AND THE SECOND LINE (LINE 4 IN INVP) 
PERFORMS AT EACH ITERATION ONE OF THE N COMPLETE INVERSIONS 
REQUIRED. SEE EXERCISE l o 40 OF IVERSON , A PROGRAMMING 

LANGUAGE, WILEY, 1962. 

V Z+INV M;I;J 

[1] M^fc?(l +pM)p( 9 §M) ,~J+K\I<-1 ipM 
[2] M«rl$(J iDblllM-iJxMl ;1])° o xA/Cl ;>M[1 ;]tM[1 ;1] 
[3] +2x\0*I+I-l 

[4] Z«-M[ ; il+pM] 

V 

VItf7P[D]V 

V Z+INVP M;I,J;K;P 

[1] AH-fc?(l +pM)p( 9 tytf) 9 ~J+KP<-\I+l+pM 

[2] M[£,l; ipP>M[l,£«-( I^Li-T;l])ir/ \Ml\I; 

[3] P^-l^P,0pP[Z,l]^-P[l,Z] 

[4] M«-l4>U,l )<t>[l]M-(J"xM[ ;l])o „ xM[l ;]<-M[l 

[5] ->2xiO^J^I-l 

[6] Z«-M[;^P] 



];ipP] 



D-HIH-ItfV M+HILB 3 

9 ~36 

36 _192 

30 180 
M+. *N 



30 
'180 
180 



I. 0000000005*0 2 

1 ,421085472£'~14 1 
4. 662936703£'~15 3 



8421709435' 14 

OOOOOOOOOtfO 

197442311E'~14 



6o 039613254£'_14 
'l „ 0658141045' 14 
1 „ 00000000020 
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DP ALL 

THE FUNCTION PALL PRODUCES THE MATRIX OF ALL PERMUTATIONS OF 
ORDER N. THE FUNCTION PERM WHICH IT USES PRODUCES THE B-TH 
PERMUTATION OF ORDER N. BY A METHOD DUE TO L,J .WOODRUM* 

THE FUNCTION PER EMPLOYS RECURSIVE DEFINITION , AND PRODUCES 
ALL PERMUTATIONS BY A METHOD MUCH FASTER THAN THAT USED IN 
THE FUNCTION PALL. THE PERMUTATIONS ARE PRODUCED IN THE 
OPPOSITE ORDER . 

V Z+PALL N;I 
[1] Z+((!N),N)pO 
[2] I-t-1 

[3] Z[ I; >tf PERM I 

[4] +3x( !N)>I+I+1 
V 

VPERMLU1V 

V Z+A PERM B;I;Y 
[1] I«-pZ-<-l + (<|>i4)TB-l 
[2] -*»Ox 1 0=I«-I-l 

[3] Z[Y>Z[Y] + Z[ I]<ZIY<-I+\A-I1 

[4] +2 
V 

VP£7?[Q]V 

V P+PER M\X\Y\Z 
[1] ->Qx\M = P<- 1 1 pi 
[2] Z+-PER M-l 

[3] P<-\X<-0 

[4] +0*\M<X+X+1 

[5] Y«-(~(iM)e*)\Z 

[6] YliXl+M 

[7] P^((ZxJW-l),W)p( ,P), ,7 

[8] ->4 
V 

P4LL 3 

12 3 

13 2 
2 13 

2 3 1 

3 12 
3 2 1 

TIME 
3 7 

Z+PALL 3 

TIME 
49 

Z+PALL 5 

TIME 
25 10 

Z<-P£7? 5 

TIME 
1 12 
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DASSOC 

THE FUNCTION ASSOC TESTS ANY PUTATIVE GROUP MULTIPLICATION 
TABLE M (ASSUMING GROUP ELEMENTS xlppM) FOR ASSOCIATIVITY 
AND YIELDS A VALUE 1 IF IT IS ASSOCIATIVE, OTHERWISE, 



VASSOCLUlV 
V Z+ASSOC M 
CI] Z<-a/ t MLM;l=ML;Ml 

V 

M«-(i5)<t>5 5p\5 
M 

2 3 4 5 1 

3 4 5 12 

4 5 12 3 

5 12 3 4 
12 3 4 5 

TIME 
13 

ASSOC M 
1 

TIME 
9 

M+Q 10 Q$M 

M 

2 3 4 5 1 

3 4 5 12 
5 12 3 4 
5 12 3 4 
12 3 4 5 

ASSOC M 


TIME 
10 

M+?10 lOplO 

pM 
10 10 

TIME 
3 

ASSOC M 


TIME 
45 
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)LOAD 1 NEWS 
SAVED 10, 44 „ 08 07/12/68 

DESCRIBE 

THIS WORKSPACE PROVIDES INFORMATION ABOUT THE OPERATION AND 
USE OF API. THE FUNCTIONS OF INTEREST TO THE USER ARE 
APLNOW, INDEX, PRINT, AND SCHEDULE. 

APLNOW TAKES AS ITS SINGLE ARGUMENT A THREE-ELEMENT VECTOR 
REPRESENTING A DATE, AS MONTH, DAY, YEAR . APLNOW PRINTS 
NOTES ON THE STATUS OF THE APL SYSTEM; FOR INSTANCE, 
RECENTLY ADDED FEATURES, TEMPORARY RESTRICTIONS , OR ADVICE 
ON PROGRAMMING OR TERMINAL OPERATION . ONLY THOSE NOTES 
ENTERED INTO APLNOW ON OR AFTER THE DATE GIVEN AS AN 
ARGUMENT ARE PRINTED. 

INDEX TAKES NO ARGUMENT. IT PRINTS INDICES, DATES, AND THE 
FIRST FEW WORDS OF EACH NOTE IN APLNOW. 

PRINT TAKES AS ITS SINGLE ARGUMENT THE INDEX (AS INDICATED 
BY THE INDEX FUNCTION) OF A NOTE FROM APLNOW, AND PRINTS THE 
NOTE. 

SCHEDULE TAKES NO ARGUMENT. IT INDICATES THE REGULAR DAILY 
APL SCHEDULE, AND ALL ANTICIPATED DEVIATIONS FROM THE NORMAL 
SCHEDULE. 
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Appendix C 

APL EXTENSIONS 

APIA 360 has been considerably enhanced since the main text of this 
publication was written. These enhancements are described in this 
appendix. 

THE SYMBOLS COMMAND 

Up to 256 names may be used to identify objects in a standard work- 
space. However, when the active workspace is clear, the allowable 
number of names for that workspace may be changed by using the com- 
mand: 

) SYMBOLS n 

where n is an integer between 26 and 4241 inclusive for a 36,000- 
byte workspace. The upper limit will vary depending upon the size 
of the workspace. 

The effect of the symbols command is to change the allowable number 
of names to not less than the number indicated. Use of the symbols 
command in other than a clear workspace yields an INCORRECT COMMAND 
report. 

To circumvent a SYMBOL TABLE FULL error, try the sequence of 
commands )SAVE, ) CLEAR, )C0PY. This cleans up the symbol table 
so that enough space may be released. If not, increase the size of 
the symbol table by using )SAVE, )CLEAR, )SYMB0LS, )C0PY. If 
still more space is needed, )ERASE some of the functions or vari- 
ables and then )SAVE, ) CLEAR, ) SYMBOLS, and )C0PY. 

ATTENTION 

Execution can be suspended within an APL statement by signalling 
attention twice in quick succession. An INTERRUPT error report is 
printed at the terminal. The error report will be followed by the 
statement with a caret typed under the point in the statement where 
execution was halted. Execution of the function may be resumed by 
branching to the statement within which execution was suspended. 

FUZZ 

In a CLEAR workspace the final ten bits in the binary representa- 
tions of the arguments are ignored during a comparison. This fuzz 
of ten bits can be changed by )C0PY 1 WSFNS SETFUZZ and 
SETFUZZ n, where n is an integer between zero and thirty-one inclu- 
sive. SETFUZZ changes the number of bits ignored to n and returns 
the previous value as a result. 

Floor and ceiling are compatible with comparisons . If J is an 
integer and the \E is less than .5, then J equals I + E within 
fuzz implies the floor and ceiling of I + E will be I. (This 
assertion is only roughly true because of the hexadecimal arithmetic 
of the IBM System/360.) 
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Whenever the APL syntax requires an integer argument and the given 
argument is not an exact integer, a conversion is attempted using 
a fixed fuzz. This conversion is unaffected by the use of SETFUZZ. 

STATE INDICATOR DAMAGE 

An SI DAMAGE report is printed at the terminal when one of the 
following occurs : 

• The function FN is edited and FN occurs in the state 
indicator list but not at the top. 

• FN occurs (anywhere) in the state indicator list and an 
) ERASE FN or )COPI FN command is executed. 

• FN occurs (anywhere) in the state indicator list and its 
header is edited or the order of its labels is changed by 
editing. 

New executions of FN can be initiated safely after the report is 
received; only suspended executions of FN may be affected. The 
simplest remedy is to enter -> at least enough times to eliminate 
all FN suspensions. 

TAKE AND DROP 

The second argument for t and .4- is expanded if necessary. For 
example, 4-M2 is equal to 1 2 and ~k+ } ABC is ' ABC . 



t 



INNER PRODUCT 



A and B are conformable with respect to the inner product Af.gB 
if (1) A or B is a scalar, or (2) ~l+pA and 1 + pB are equal, or 
(3) either ~l + pA or l+ps equals one. In the last case the 
corresponding argument is extended by replication to make the 
arguments of equal length along this coordinate. 

Example 1 Example 2 Example 3 

A A A 

BIG BIG 1 2 

BAD BAD 3 4 

TOP TOP B 

JOB pA JOG 5 6 7 8 

pA A+.xB 

4 3 43 15 18 ■ 21 24 

B 35 42 49 56 

4v.='0» BAD 

11 P B 

3 

AA.=B 
10 
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ENCODE AND DECODE 

Encode and decode have been extended to operate on arrays. If 

Z+RtN , then pZ equals (pB),pN. If X+A±B , then p X equals ( ~l+pA ) , l + p£ . 

A and B are conformable with respect to the decode function AlB 
if (1) A or_B is a scalar, or (2) ~ltp^4 and ltpB are equal, or 
(3) either 1-t-pA or 1 + pB equals one. In the last case the corre- 
sponding argument is extended by replication to make the arguments 
of equal length along this coordinate. 

Example 

A 

io 10 10 

B 
132 755 
459 533 

ArB 

1 7 
if 5 

3 5 
5 3 

2 5 
9 3 

MATRIX DIVISION 

Matrix division has been implemented as a primitive mixed function. 
It can be used for inverting matrices, solving sets of linear 
equations, and finding least squares solutions. The syntax for the 
dyadic function is X+B\BA where § is formed by typing D , 
backspace, v. A must have rank 2. The rank of B must be 1 or 2 . 
Also l + pi4 must be greater than or equal to ltpA and l + p.4 must 
equal ltpfl. If X+BUA' ' , then X minimizes +/+/( (A+. xX) -B )*2 . 

The monadic function X+EA is tantamount to X+IM where J is an 

identity matrix of order lipA. Thus, monadic 03 yields the inverse 

of a square matrix (or a DOMAIN ERROR if the matrix is not invertible) 

Example I : Matrix Inversion 

A 
63 88 
27 44 

m 

_0. 1111111111 0.2222222222 
0.06818181818 0.1590909091 
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Example 2 : Solving Sets of Linear Equations 
If x + 2y = 8 
3x - y = 3 
Then in APL: 





A + 2 2pl 2 3 "1 






B-t-8 3 






BEA 




2 3 






Example 3 : 


Least Squares Solution 






A 






3.683 2, 


,448 




0.11 6. 


.14 




7.206 0, 


.18 




2. 589 2. 


.257 




3. 164 8 , 


.393 




B 






27.9 43 23 23.9 68 , 


.4 



bm 

3.020193561 6.988397527 



CATENATION 

Catenation joins two variables along an existing coordinate. For 
example, two vectors may be catenated: If X<-2 3 5 and J-*-10 4, 
then X,Y equals 2 3 5 10 4. A vector and a scalar may be catenated; 
if X*-2 3 5 and S^-4, then X, S is 2 3 5 4. Strictly speaking, two 
scalars may be laminated (see the following section) but not 
catenated. 

In general, two arrays may be catenated along an existing coordi- 
nate. The syntax for catenation is A,LI1B or A t B . A,B is short 
for A , I XI ( ipp^l ) , ippS]B except when A and B are both scalars. 
For example, in 1-origin, if A<-2 3pi6 and B+2 3p 2 3 5 10 4 7, then 



and 





A,B 








1 


2 3 


2 


3 


5 


4 


5 6 
A,L11B 


10 


4 


7 


1 


2 3 








4 


5 6 








2 


3 5 








10 


4 7 









If ppi4 equals ppB, then catenation requires that I be an element 
of ipp.<4 and that the corresponding dimensions of A and B be the 
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same except the Jth. The dimension vector of the result is the 
same as the dimension vectors of the arguments except that the Jth 
coordinate is obtained by adding their corresponding coordinates. 
In the example above (A,B)L;\ 3] equals A and (A ,B ) [ ; 3+i 3 ] equals B. 

If A and B do not have the same rank, then their ranks must 
differ by one, or either A or B must be a scalar. 

If B, for example, has one fewer coordinates than A, then pS 
must equal ( I* xppA ) / pA . In this case a unit Jth coordinate is 
inserted into pB . Hence rows and columns can be added to matrices. 
For example, if 5-<-2 4 3 9 and A is the same as above, then 

A,B 
1 2 3 24 
4 5 6 39 

If B, for example, is a scalar, then it is extended to have the 
same dimensions as A except along the Jth coordinate on which 
it is given unit length. If A is the same as above and B-*-2 9, then 

A,L12B 

12 3 

4 5 6 

29 29 29 

LAMINATION 

Lamination joins two variables along a new coordinate. The syntax 
for lamination is A S B or A,U1B. If A and B are both scalars, 
then A,B yields a two-element vector. For all other cases the 
form A S LI1B must be used. 

Lamination requires that either the dimension vectors of A and B 

be the same or that A or B be a scalar. In the first case 

(pA equals pB) lamination requires that the expression 

( J*L J) a( J>~l+il ) a( J<l+T/ ippi4 ) evaluate to unity. The operation 

inserts, before the (TJ)th coordinate (or after the (LJ) th 

coordinate), a new coordinate which always has the range i 2. and 

is used to distinguish between elements from A and elements from 

B. For example, in 1-origin, if A<-2 3p 16 and B+-2 3p2351047, 

then 

A,l . 51B 
12 3 
4 5 6 

2 3 5 
10 4 7 
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12 3 
2 3 5 



4 5 6 
10 4 7 



A,L2. 5]B 

1 2 

2 3 

3 5 

4 10 

5 4 

6 7 



If B, for example, is a scalar, then the operation ;4,[1.6]B 
would be tantamount to A ,11 6](p/l)pB. 
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And 3.5 3.7 3.9 3.34 
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A. 3 
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Computer 

access 1.1 

failure 2. 8 

time used 1.11 3.4 7 
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broken 1.6 2.4 2.8 2.10 

computer 1.1 

establish 1.4-6 

hold 2.11-12 
Constants 3.2 

CONTINUE 1.11 2.7-9 2.11-12 
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3.37 
COPY 2.7 2.13-14 3.33 

action and notes 2.15-18 
Correction 1.7 A. 1 A. 4 
Cosh 3.7 
Cosine 3.7 A. 2 



Data button 1. 6 

Date 3.4 7 

Date response 2.9-10 

Deal 3.7 3.38 3.45 
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Decode 3.38 3.42 B.2 

Defined function 2.3 3.1-16 A. 3 

example 3.11 A. 3 

explicit argument and result 3.14 
3.15 
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start and end 3.10 

table of forms 3.15 

use 3.16 

variables made local to 3.13 
Definition mode 2.5 3.17 

end 3.18 A. 3 

reestablish 3.19 
DEFN ERROR 3.4 
Del 3.10 3.17-19 
Del tilde 3.19 
Delete 3.17-19 
DEPTH ERROR 3. 4 
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4.7 
Dimension 3.5 3.26-29 3.35 
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Divide 3.7 3.34 
DOMAIN ERROR 3.4 3.44 4.3 
Drop 3.3 8 3.4 4 
DROP 2.7 2.22 2.27 
Dyadic functions 3.7-8 3.34 3.36 
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in function definition 3.18-19 
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text 2.13 
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A.l 
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Encode 3.38 3.43 B.2 
Entries 1.6-7 3.2 3.24 
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Equal 3.7-9 3.34 
Equipment ■1.1 1.2 
Erase 1.7 2.27 3.3 
ERASE 2.7 2.13 2.20 3.19 A. 5 
Error 1.7 
Error report 3.3 3.5 

during defined function 3.5 

table 3.4 
Evaluated input 3.24 
Evaluation, order of 

see Order of execution 
Exclusive or 3.9 
Execution mode 2.5 3.19 
Execution, order of 

see Order of execution 
Expand 3.29 3.38 3.42 A. 13 
Exponential 3.7 

Exponential form 3.2 4.2-3 A.l 
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Factorial 3.7 3.9 3.16 A. 3 

Floor 3.7-8 

FNS 2.7 2.28 3.22 
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3.23 
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Functions 
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Halted, Library, Locked, Mixed, 
Monadic, Pendent, Primitive, 
Recursive definition, Scalar, 
Suspended, System dependent 

Fuzz 3.8 

Gamma function 3.9 
Gauss-Jordan elimination B.10 
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Global variable 2.13-14 2.29 3.13 

A. 3 
Grade up and down 3.38 3.44 
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GRF , GRPS 2.7 2.29-30 3.22 
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Header 3.13 3.15-19 A. 3 
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-I-beam functions 3.20 3.46-48 
Identity element table 3.34 
IMPROPER LIBRARY REFERENCE 2.1 

2.26-27 2.31 
INCORRECT COMMAND 2.6-7 
INCORRECT SIGN-ON 1.9 2.7 
Index 3.26 3.38 
INDEX ERROR 3.4 3.30 3.34 
Index generator 3.9 3.3 8 A. 2 
Indexing 3.26 3.30-33 A. 14-15 
Index of 3.38 3.43 
Index origin 2.20 3.32-34 A. 8 
Inner product 3.5 3.33 3.35 A. 9 

table 3.36 
Input 

character 3.25 

escape from loop 3.25 

evaluated 3.24 

position 1.8 2.4 
Input and output 3.2 3-26 A. 6 
Inquiry command 1.8 2.5 2.2 8 

action and notes 2.2 8-32 

table 2.7 
Insert by backspacing 3.3 
Interrupt 1.1 2.4 2.9 3.20 
Iota 

see Index generator, Index of 
Iteration counter 3.13 



Key 1.8 2.3 2.14 
Keyboard 1.3 

locked 1.6-8 2.32-33 

unlocked 1.10 2.4 2.34 3.24 
Keying time 3.4 7 



Label 3.17 

LABEL ERROR 3.4 

LENGTH ERROR 3.4 3.33 4.3 

Less 3.7 3.9 

LIB 2.7 2.31 

Library 2.2 

see Private, Public 
LIBRARY 1 4.1 

ADVANCEDEX B.l-12 

APLCOURSE 4.5 

NEWS B.13 

TYPEDRILL 4.8-9 

WSFNS 3.32 4.7 
Library control command 2.5 
2.22-24 

action and notes 2.25-27 

table 2.7 
Library function 2.5 4.1-9 
Library number 2.14 2.23 
LIBRARY TABLE FULL 2.9 
Line width 2.21 
List, construct and use B.3 
LOAD 2.7 2.22 

Local variable 2.3 3.13 3.22 
Lock 2.3 2.10 
Locked function 3.5 3.9 
Locked keyboard 1.6-8 2.4 2.32-33 
Logarithm 3. 7 
Logical function 3.5 3.9 
Logical result A. 2 
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Material implication 3.9 
Mathematical statements 3.1 
Matrix 3.26-27 3.33 3.35 A. 7 
A. 15 

Hilbert B.10 
Maximum 3.7 3.34 A. 9 
Membership 2.30 3.38 3.43 A. 15 
Message 1.8 2.21 2.32-33 
MESSAGE LOST 2.7 2.33 
Minimum 3.7 3.3 4 
Minus 3.2 3.7 3.34 
Mixed functions 3.37-45 

names 3.5 

sample A. 10-15 

table 3.3 8-39 
Monadic functions 3.7-8 
Monadic transpose 3.40 
MSG, MSGN 2.7 2.33-34 

Names 2.2-3 2.14 2.19 2.23 

3.10 3.13 
active and latent referents 3.22 

3.23 
to obtain lists of 2.28-31 
Nand 3.7 3.9 3.3 4 
Natural logarithm 3.7 
Negation function 3.2 
Negative number 3.2 3.7 A.l 
NO SPACE 2. 9 
Nor 3.7 3.9 3.34 
Not 3.7 

Not equal 3.7-9 3. 33 
Not greater 3.7 3.9 3.34 
NOT GROUPED, NAME IN USE 2.7 2.19 
Not less 3.7 3.9 3. 34 
NOT SAVED, THIS WS IS wsid 2.7 

2.27 
NOT SAVED, WS QUOTA USED UP 2.7 

2.27 
NOT WITH OPEN DEFINITION 2.7 2.16 

2.25 3.19 
NUMBER IN USE 1.9 2.7 
NUMBER LOCKED OUT 1.9 2.7 
NUMBER NOT IN SYSTEM 1.9 2.7 
Number of terminals connected 3.4 7 
Numbers 3.2 3.5 3.2 6 

OBJECT NOT FOUND 2.7 2.16 

Occurrences B.4 

OFF 2.7 2.10-11 

Operator 1.4-5 1.8 

OPR, OPRN 1.8 2.7 2.34-35 

Or 3.5 3.7 3.9 3.34 

Order of execution 3.45 

compound expression 3.3 A.l 

defined function 3.11 
ORIGIN 1.7 2.7 2.20 3.32 4.7 
Out of 3. 34 

Outer product 3.5 3.33 3.35-36 
Output 2.1 2.21 3.23 3.25 

array 3.33 

fixed point 4. 2 

heterogeneous 3.2 6 

maximum digits 2.21 
Overstrike 3.3-4 3.19 3.25 
3.35 3.41 3.45 



Parentheses in expression 3. 3 

Parenthesis, right 1.8 2.5-6 

Password 1.8 2.3 2.10 

PCOPY 2.13 2.18 

Pendent function 2.3 2.30 3.21 

Permutation 3.32 3.37 A. 8 A. 14 

B.ll 
Pi times 3.7 
Plus 3.7 3.34 
Polynomial B. 6 
Ports 1.1 
PORTS 2.7 2.32 
Power 3.7 3.34 
Precision of numbers 2,21 3.5 
Primitive functions 3.1 3.7 3.14 
3.38 

names 3.5 

see Mixed, Scalar 
Printing element 1.1-3 
Private library 2.2-3 2.23 
Programming examples B.l-12 
Protecting copy command 2.13 2.18 
Public library 2.2 2.23 4.1 

Quad 3.24-25 3.47 
Quotation mark 3.2 
Quote quad 3.25 3.4 7 



Radices 3.42 

Random 3.7 3.4 5 A. 15 

RANK ERROR 3.4 3.33 4.3 

Rank of array 3.26-27 A. 14 

Ravel 3.27-28 3.38 

Reciprocal 3.7 

Recording terminal 1.4 2.8 2.2 4 

2.32 2.34-35 
Recursive definition 3.16 B. 7 

B.ll 
Reduction 3.5 3.33-35 A. 9 
Representation 3.43 A. 13 
Request button on 1050 terminal 1. 
RESEND 1.7 3.4 
Reshape 3.28 3.38 A. 7 
Residue 3.7-8 3.34 
Response 1.9-11 2.6 2.10 A.l 

table 2.7 
Results 3.2 3.14-15 
Return 1.6-7 3.3 
Reverse 3.3 8 3.41 A. 12 
Revise 3.17 
Rho 

see Reshape, Size 
Roll 3.7 

Rotate 3.38 3.40 A. 12 
Row 3.30-32 3.35 3.42 A. 7 



SAVE 2.7 2.22 2.25-26 
Scalar 3.27 3.37 
Scalar functions 3.5-10 

extend to arrays 3.33-36 

sample A. 2 

table 3.7 
Security 2.3 
Semicolon 3.13 3.26 



SI, SIV 2.7 2.30-31 3.20-22 

Sign on 1. 8-10 2. 7 

Signum 3.7 A. 3 

Sine 3.7 A. 2 

Sine, cosine, tangent table A. 11 

Sinh 3.7 

Size 3.5 3.27 3.38 

Spaces 2.6 3.2 

Specification 3.1 

multiple 3.45 
State indicator 2.1 2.22 3.20-21 
3.48 A. 5 

with local variables 3.22 
Statement 3.1 

end of 3. 3 

invalid 3.3 3.5 A. 2 

number 3.10-11 3.17-18 3.48 
Statistical calculations 2.13 
Stop control 3.19 3.21 
Storage 2.1 2.24 3.46 
Store workspace 2.25-26 
Suspended function 2.30 3.20-21 

3.48 
Symbols 3.5 3.7 3.24-25 3.38 

3.45 
SYMBOL TABLE FULL 3.4 
SYNTAX ERROR 3.4 
System command 2.1 2.5-6 

during function definition 3.19 

table 2.7 
System dependent function 2.5 2.30 
3.46-48 

table 3.4 7 
SYSTEM ERROR 3.4 
System information 1.9 3.46-48 

Tabular output 4.3 
Take 3.38 3.44 
Tangent 3.7 A. 2 
Tanh 3. 7 
Teaching 2.13 
Telephone number 1.5 
Terminal 

table of features and options 1.2 

1050 1.1 1.5 1.7-8 

2740 1.4-6 
2740-1 1.1 

2741 1.1 1.4-6 2.4 

Terminal control command 2.5 2.8-9 

action and notes 2.9-12 

table 2.7 
Terminal, sample session at A. 1-15 
Terminal modes 2.5 
Time 1.9 1.11 2.9 3.46-48 B. 7 
Timer on 1050 terminal 1. 8 
Times 3.7 3.33 
Time, student response 3.47 



Trace 3.16 3.19 3.21 A. 3 
Transmission signal 1.6-7 
Transpose 3.37-41 A. 10-11 
Transposition table 3.40 
Trigonometric functions 

see Circular functions 
Trouble report 1.7 2.6 

table 2.7 
Typewriter entry 1.6-7 3.2 3.24 
A.l 



User code 1.11 2.2 8 

Value 3.11 3.14-15 3.17 3.25 
3.45 

VALUE ERROR 3.4 3.15 

Variables 
local and global 2.3 3.13 3.22 
names 2.1-2 2.19 3.22-23 
value 3.1 3.14 3.32 

VARS 2.7 2.29 3.22 

Vectors 3.9-10 3.26-27 3.35 A.l 
mixed functions apply 3.37 
numerical and character constant 

3.2 A.l 
scalar functions apply 3.9 

WIDTH 2.7 2.21 3.25 4.7 
Work session 

forced end 2. 8 

to end 1.10-11 2.10-12 

to start 1. 8 
Workspace 1.9 2.1-2 

activate 2.14-15 

active 2.13 2.2 8 

capacity 2.1 

clear 1.10 2.6 2.14 

continue 1.10 2.8 2.24 

identification 2.14 2.23 2.31 

identification change 2.22-23 

index origin 3.33 

information transfer between 2.13 

in libraries 4.1 

name 2.2-3 

purge an active 2.24 

replace stored with active 2.2 5 

stored 2.2-3 2.2 3 
Workspace control command 2.5 
2.13-14 

action and notes 2.15-22 
WS FULL 2.7 2.16 3.4 
WSID 2.7 2.31 
WS LOCKED 2.7 2.15 
WS NOT FOUND 2.7 2.15 2.27 

Zero of a function B. 9 
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